@@ -86,7 +86,7 @@ data SqlError = SqlError {
86 , sqlErrorMsg :: ByteString
86 , sqlErrorMsg :: ByteString
87 , sqlErrorDetail :: ByteString
87 , sqlErrorDetail :: ByteString
88 , sqlErrorHint :: ByteString
88 , sqlErrorHint :: ByteString
89− } deriving (Show, Typeable)
89+ } deriving (Eq, Show, Typeable)
91fatalError :: ByteString -> SqlError
91fatalError :: ByteString -> SqlError
92fatalError msg = SqlError "" FatalError msg "" ""
92fatalError msg = SqlError "" FatalError msg "" ""