simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 10:47:29 +03:00
Code Issues Projects Releases Wiki Activity

don't show stack trace details in errors with GHC 8+

Browse Source
This commit is contained in:
Simon Michael 2016-11-22 14:28:39 -08:00
parent 2eb5736abb
commit 3a5091e9eb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger-lib/Hledger/Utils/UTF8IOCompat.hs
View File

@ -1,4 +1,4 @@
-- {-# LANGUAGE CPP #-}
{-# LANGUAGE CPP #-}
{- |
UTF-8 aware string IO functions that will work across multiple platforms
@ -119,7 +119,13 @@ toSystemString = id
-- | A SystemString-aware version of error.
error' :: String -> a
error' = error . toSystemString
error' =
#if __GLASGOW_HASKELL__ < 800
-- (easier than if base < 4.9)
error . toSystemString
#else
errorWithoutStackTrace . toSystemString
#endif
-- | A SystemString-aware version of userError.
userError' :: String -> IOError