jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Explicit Typeable for older GHC.

Browse Source
This commit is contained in:
Stephen Diehl
2016-06-08 19:38:45 -04:00
parent 6df421ad72
commit 6ae19be4b7
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Panic.hs
+2 -1
View File
@@ -5,11 +5,12 @@ module Panic (
import Base (Show) import Base (Show)
import Data.Text (Text) import Data.Text (Text)
import Data.Typeable (Typeable)
import Control.Exception as X import Control.Exception as X
-- | Uncatchable exceptions thrown and never caught. -- | Uncatchable exceptions thrown and never caught.
data FatalError = FatalError { msg :: Text } data FatalError = FatalError { msg :: Text }
deriving (Show) deriving (Show, Typeable)
instance Exception FatalError instance Exception FatalError