git.iko.soy/squeal
on dev help sign in
fix test
8d08fc1Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/PQ.hs+1−1
compare with dev
unifiedsplit
@@ -644,7 +644,7 @@ okResult_ result = liftIO $ do
644
644
645-- | Check if a `Result`'s status is either `LibPQ.CommandOk`
645-- | Check if a `Result`'s status is either `LibPQ.CommandOk`
646-- or `LibPQ.TuplesOk` otherwise `throw` a `PQException`.
646-- or `LibPQ.TuplesOk` otherwise `throw` a `PQException`.
647−okResult :: MonadIO io => K LibPQ.Result xs -> io ()
647+okResult :: MonadIO io => K LibPQ.Result row -> io ()
648okResult = okResult_ . unK
648okResult = okResult_ . unK
649
649
650-- | Catch `SquealException`s.
650-- | Catch `SquealException`s.
squeal-postgresql/test/Specs/ExceptionHandling.hs+1−1
@@ -114,7 +114,7 @@ specs = before_ setupDB $ after_ dropDB $
114 describe "Exceptions" $ do
114 describe "Exceptions" $ do
115
115
116 let
116 let
117− dupKeyErr = PQException FatalError (Just "23505")
117+ dupKeyErr = PQException $ PQState FatalError (Just "23505")
118 (Just "ERROR: duplicate key value violates unique constraint \"unique_names\"\nDETAIL: Key (name)=(TestUser) already exists.\n")
118 (Just "ERROR: duplicate key value violates unique constraint \"unique_names\"\nDETAIL: Key (name)=(TestUser) already exists.\n")
119
119
120 it "should be thrown for unique constraint violation in a manipulation" $
120 it "should be thrown for unique constraint violation in a manipulation" $