Store 'File's

This commit is contained in:
Joscha 2019-11-25 11:22:51 +00:00
parent d5d29a8180
commit 02b6d65b8f
3 changed files with 41 additions and 23 deletions

View file

@ -33,7 +33,7 @@ main = doRun_ $ do
settings <- lift $ execParser opts
lift $ putStrLn $ "Loading assembly file at " ++ infile settings
(state, _, _) <- loadFile' readAssembly (infile settings)
(state, _, _) <- loadFile readAssembly (infile settings)
lift $ putStrLn "Parsing successful"
lift $ putStrLn $ "Writing result to " ++ outfile settings