Correctly handle --dump-json option of 'search'

src/main/Main.hs

@@ -86,12 +86,12 @@ main = do
       json <- traverse BS.readFile (sseGraphJsonFile opts)
       case JSON.parseFile <$> json of
         -- Don't do any comparision between graphs
-        Nothing -> void (driver (dumpJSON opts) (eliminateEpsilons opts) (mockupExecutable opts))
+        Nothing -> void (driver (eliminateEpsilons opts) (dumpJSON opts) (mockupExecutable opts))
         Just (Left e) -> do
           hPutStrLn stderr $ "Could not parse sse graph json: " <> e
           exitFailure
         Just (Right graph1) -> do
-          graph2 <- driver (dumpJSON opts) (eliminateEpsilons opts) (mockupExecutable opts)
+          graph2 <- driver (eliminateEpsilons opts) (dumpJSON opts) (mockupExecutable opts)
           if (not (isDeterministic (graph1^._graph)) || not (isDeterministic (graph2^._graph))) then do
             hPutStrLn stderr $ "One of the graphs is not deterministic"
             exitFailure