@@ -187,7 +187,7 @@ testSelectTestTable = databasePropertyTest "Can SELECT TestTable" \transaction -
187187 liftIO $ Rel8.insert connection
188188 Rel8.Insert
189189 { into = testTableSchema
190− , rows = map (Rel8.toInsert . Rel8.lit) rows
190+ , rows = map Rel8.lit rows
191191 , onConflict = Rel8.DoNothing
192192 , returning = Rel8.NumberOfRowsAffected
193193 }
@@ -539,7 +539,7 @@ data TwoTestTables f =
539539 { testTable1 :: TestTable f
540540 , testTable2 :: TestTable f
541541 }
542− deriving stock Generic
542+ deriving stock Generic
543543 deriving anyclass Rel8.Rel8able
544544
545545
@@ -586,8 +586,8 @@ rollingBack
586586 :: (MonadBaseControl IO m, MonadIO m)
587587 => Connection -> m a -> m a
588588rollingBack connection =
589− bracket_
590− (liftIO (run (sql "BEGIN") connection))
589+ bracket_
590+ (liftIO (run (sql "BEGIN") connection))
591591 (liftIO (run (sql "ROLLBACK") connection))
592592
593593
@@ -606,7 +606,7 @@ testUpdate = databasePropertyTest "Can UPDATE TestTable" \transaction -> do
606606 void $ liftIO $ Rel8.insert connection
607607 Rel8.Insert
608608 { into = testTableSchema
609− , rows = map (Rel8.toInsert . Rel8.lit) $ Map.keys rows
609+ , rows = map Rel8.lit $ Map.keys rows
610610 , onConflict = Rel8.DoNothing
611611 , returning = Rel8.NumberOfRowsAffected
612612 }
@@ -650,7 +650,7 @@ testDelete = databasePropertyTest "Can DELETE TestTable" \transaction -> do
650650 void $ liftIO $ Rel8.insert connection
651651 Rel8.Insert
652652 { into = testTableSchema
653− , rows = map (Rel8.toInsert . Rel8.lit) rows
653+ , rows = map Rel8.lit rows
654654 , onConflict = Rel8.DoNothing
655655 , returning = Rel8.NumberOfRowsAffected
656656 }