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

Catch and print all IOErrors

Browse source
This commit is contained in:
Joscha 2020-03-29 11:39:20 +00:00
parent 7b7a363693
commit b9f9d27105
2 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
mima-run/Main.hs
View file

@ -15,7 +15,7 @@ import Mima.Vm.Storage
loadMetadataOrEmpty :: FilePath -> Run Metadata
loadMetadataOrEmpty path = catch (loadMetadata path) $ \e -> do
liftIO $ putStrLn $ "Metafile could not be loaded. " ++ T.unpack e
liftIO $ putStrLn $ "Metafile could not be loaded: " ++ T.unpack e
pure mempty
main :: IO ()