git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #188 from bitemyapp/master
297d2d6Leon P Smith
src/Database/PostgreSQL/Simple/Internal.hs+1−1
@@ -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)
90
90
91fatalError :: ByteString -> SqlError
91fatalError :: ByteString -> SqlError
92fatalError msg = SqlError "" FatalError msg "" ""
92fatalError msg = SqlError "" FatalError msg "" ""