@@ -1,6 +1,7 @@
11{-# LANGUAGE
22 DataKinds
33 , DeriveGeneric
4+ , FlexibleContexts
45 , OverloadedLabels
56 , OverloadedStrings
67 , TypeApplications
@@ -10,7 +11,7 @@
1011module Main (main, main2) where
1112
1213import Control.Monad (void)
13−import Control.Monad.Base (liftBase)
14+import Control.Monad.Base (liftBase, MonadBase)
1415import Data.Int (Int32)
1516import Data.Monoid ((<>))
1617import Data.Text (Text)
@@ -87,7 +88,7 @@ users =
8788 , User "Carole" (Just "carole@hotmail.com")
8889 ]
8990
90−session :: PQ Schema Schema IO ()
91+session :: (MonadBase IO pq, MonadPQ Schema pq) => pq ()
9192session = do
9293 liftBase $ Char8.putStrLn "manipulating"
9394 idResults <- traversePrepared insertUser (Only . userName <$> users)