diff --git a/src/Panic.hs b/src/Panic.hs
index fd7a2d5af..bc506f9dd 100644
--- a/src/Panic.hs
+++ b/src/Panic.hs
@@ -4,12 +4,13 @@ module Panic (
 ) where
 
 import Base (Show)
-import Data.Text(Text)
+import Data.Text (Text)
+import Data.Typeable (Typeable)
 import Control.Exception as X
 
 -- | Uncatchable exceptions thrown and never caught.
 data FatalError = FatalError { msg :: Text }
-  deriving (Show)
+  deriving (Show, Typeable)
 
 instance Exception FatalError