From 6ae19be4b70d1c09d7e9884d5e7993d517d843c7 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Wed, 8 Jun 2016 19:38:45 -0400
Subject: [PATCH] Explicit Typeable for older GHC.

---
 src/Panic.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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