diff options
| -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 |