diff --git a/circle.yml b/circle.yml index 66200b110..4ba35a9a5 100644 --- a/circle.yml +++ b/circle.yml @@ -6,5 +6,5 @@ machine: version: 7.8.3 test: post: - - cabal exec hlint src/*.hs test/**/*.hs + - cabal exec hlint -- -X QuasiQuotes src/*.hs test/**/*.hs - cabal exec packdeps postgrest.cabal diff --git a/test/Feature/QuerySpec.hs b/test/Feature/QuerySpec.hs index 625a07c14..6a4f658af 100644 --- a/test/Feature/QuerySpec.hs +++ b/test/Feature/QuerySpec.hs @@ -15,12 +15,10 @@ testSet = do clearTable "items" >> clearTable "no_pk" createItems 15 pool <- H.acquirePool pgSettings testPoolOpts - void . liftIO $ H.session pool $ H.tx Nothing $ do - mapM_ H.unitEx $ map (uncurry insertNoPk) [ - ("lick", "Fun") - , ("trick", "funky") - , ("barb", "foo") - , ("BARD", "FOOD") + void . liftIO $ H.session pool $ H.tx Nothing $ + mapM_ (H.unitEx . uncurry insertNoPk) [ + ("lick", "Fun"), ("trick", "funky") + , ("barb", "foo"), ("BARD", "FOOD") ] where