GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-15 02:01:39 +03:00
Code Issues Projects Releases Wiki Activity

More friendly handling of errors writing files from :dumptests

Browse Source
This commit is contained in:
David Thrane Christiansen 2019-03-19 13:34:31 -07:00
parent 508327058b
commit 209686bb60
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Cryptol/REPL/Command.hs
View File

@ -317,8 +317,10 @@ dumpTestsCmd outFile str =
do argOut <- mapM (rEval . E.ppValue ppopts) args
resOut <- rEval (E.ppValue ppopts x)
return (renderOneLine resOut ++ "\t" ++ intercalate "\t" (map renderOneLine argOut) ++ "\n")
io $ writeFile outFile (concat out)
io $ writeFile outFile (concat out) `X.catch` handler
where
handler :: X.SomeException -> IO ()
handler e = putStrLn (X.displayException e)