Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use package for modifying paths

Browse source
This commit is contained in:
Joscha 2020-03-29 11:08:43 +00:00
parent fdc755ecb0
commit 7b7a363693
3 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mima-run/Main.hs
View file

@ -14,9 +14,9 @@ import Mima.Vm.State
import Mima.Vm.Storage
loadMetadataOrEmpty :: FilePath -> Run Metadata
loadMetadataOrEmpty path = catch (loadMetadata path) (\error -> do
liftIO $ putStrLn $ "Metafile could not be loaded. " ++ T.unpack error
pure mempty)
loadMetadataOrEmpty path = catch (loadMetadata path) $ \e -> do
liftIO $ putStrLn $ "Metafile could not be loaded. " ++ T.unpack e
pure mempty
main :: IO ()
main = runOrExit 2 $ do
@ -38,5 +38,6 @@ main = runOrExit 2 $ do
Nothing -> putStrLn "Ran out of steps"
Just abortReason -> T.putStrLn $ toText abortReason
pure finalState
liftIO $ putStrLn ""
liftIO $ print finalState