@@ -86,7 +86,7 @@ data SqlError = SqlError {
8686 , sqlErrorMsg :: ByteString
8787 , sqlErrorDetail :: ByteString
8888 , sqlErrorHint :: ByteString
89− } deriving (Show, Typeable)
89+ } deriving (Eq, Show, Typeable)
9090
9191fatalError :: ByteString -> SqlError
9292fatalError msg = SqlError "" FatalError msg "" ""