git.iko.soy/typeable/postgresql-simple
on master help sign in
Oops
fbaa5c8Leon P Smith
test/Main.hs+1−1
compare with master
unifiedsplit
@@ -327,7 +327,7 @@ testDouble TestEnv{..} = TestCase $ do
327
327
328testGeneric1 :: TestEnv -> Test
328testGeneric1 :: TestEnv -> Test
329testGeneric1 TestEnv{..} = TestCase $ do
329testGeneric1 TestEnv{..} = TestCase $ do
330− roundTrip (Gen1 123)
330+ roundTrip conn (Gen1 123)
331 where
331 where
332 roundTrip conn x0 = do
332 roundTrip conn x0 = do
333 r <- query conn "SELECT ?::int" (x0 :: Gen1)
333 r <- query conn "SELECT ?::int" (x0 :: Gen1)