git.iko.soy/squeal
on dev help sign in
MonadPQ example
2c4bfcdEitan Chatav
squeal-postgresql/exe/Example.hs+3−2
compare with dev
unifiedsplit
@@ -1,6 +1,7 @@
1{-# LANGUAGE
1{-# LANGUAGE
2 DataKinds
2 DataKinds
3 , DeriveGeneric
3 , DeriveGeneric
4+ , FlexibleContexts
4 , OverloadedLabels
5 , OverloadedLabels
5 , OverloadedStrings
6 , OverloadedStrings
6 , TypeApplications
7 , TypeApplications
@@ -10,7 +11,7 @@
10module Main (main, main2) where
11module Main (main, main2) where
11
12
12import Control.Monad (void)
13import Control.Monad (void)
13−import Control.Monad.Base (liftBase)
14+import Control.Monad.Base (liftBase, MonadBase)
14import Data.Int (Int32)
15import Data.Int (Int32)
15import Data.Monoid ((<>))
16import Data.Monoid ((<>))
16import Data.Text (Text)
17import Data.Text (Text)
@@ -87,7 +88,7 @@ users =
87 , User "Carole" (Just "carole@hotmail.com")
88 , User "Carole" (Just "carole@hotmail.com")
88 ]
89 ]
89
90
90−session :: PQ Schema Schema IO ()
91+session :: (MonadBase IO pq, MonadPQ Schema pq) => pq ()
91session = do
92session = do
92 liftBase $ Char8.putStrLn "manipulating"
93 liftBase $ Char8.putStrLn "manipulating"
93 idResults <- traversePrepared insertUser (Only . userName <$> users)
94 idResults <- traversePrepared insertUser (Only . userName <$> users)