diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2018-10-12 00:35:11 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2018-10-26 04:33:07 +0200 |
commit | e6d50e71f0b11377c3839eee52ca08345bce7e8a (patch) | |
tree | 74372dd19899dac06c66a5eb5e75176315023468 | |
parent | 2799cc04b621194af91cc0d3239467ab92867560 (diff) |
Fix Show instance for Panic
-rw-r--r-- | src/CabalHelper/Shared/Common.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/CabalHelper/Shared/Common.hs b/src/CabalHelper/Shared/Common.hs index 1f0c49e..8e8418b 100644 --- a/src/CabalHelper/Shared/Common.hs +++ b/src/CabalHelper/Shared/Common.hs @@ -61,8 +61,10 @@ import System.FilePath import Text.ParserCombinators.ReadP import Prelude -data Panic = Panic String deriving (Typeable, Show) +data Panic = Panic String deriving (Typeable) instance Exception Panic +instance Show Panic where + show (Panic msg) = "panic! " ++ msg panic :: String -> a panic msg = throw $ Panic msg |