mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-10-26 10:18:01 +03:00
examples/HDBC/PostgreSQL: apply namespace updates.
This commit is contained in:
parent
fed913fce4
commit
3a799f48b7
@ -5,9 +5,10 @@
|
||||
module QueryArrowExample where
|
||||
|
||||
import GHC.Generics (Generic)
|
||||
import Data.Functor.ProductIsomorphic
|
||||
import Database.Record
|
||||
|
||||
import Database.Relational.Query.Arrow
|
||||
import Database.Relational.Arrow
|
||||
import Database.HDBC.Query.TH (makeRelationalRecord)
|
||||
import Data.Int (Int32, Int64)
|
||||
import Control.Arrow (returnA)
|
||||
|
@ -6,9 +6,10 @@
|
||||
module QueryExample where
|
||||
|
||||
import GHC.Generics (Generic)
|
||||
import Data.Functor.ProductIsomorphic
|
||||
import Database.Record
|
||||
|
||||
import Database.Relational.Query
|
||||
import Database.Relational
|
||||
import Database.HDBC.Query.TH (makeRelationalRecord)
|
||||
import Data.Int (Int32, Int64)
|
||||
|
||||
|
@ -5,7 +5,7 @@ import QueryExample
|
||||
|
||||
import Database.Record
|
||||
|
||||
import Database.Relational.Query
|
||||
import Database.Relational
|
||||
import Database.HDBC (IConnection, SqlValue)
|
||||
|
||||
import User (User)
|
||||
@ -13,8 +13,8 @@ import Group (Group)
|
||||
|
||||
import PgTestDataSource (connect)
|
||||
import Database.HDBC.Record
|
||||
(ExecutedStatement, bindTo, execute
|
||||
,runQuery, prepareQuery, fetchUnique, fetchUnique')
|
||||
(ExecutedStatement, bindTo, executeBound,
|
||||
runQuery, prepareQuery, fetchUnique, fetchUnique')
|
||||
import Database.HDBC.Session (withConnectionIO, handleSqlError')
|
||||
import Database.HDBC.Query.TH (inlineVerifiedQuery)
|
||||
|
||||
@ -65,7 +65,7 @@ runU f = handleSqlError' $ withConnectionIO connect
|
||||
putStrLn $ "SQL: " ++ show userGroupU
|
||||
pq <- prepareQuery conn (relationalQuery userGroupU)
|
||||
let bs = ("Kei Hibino", "Haskell") `bindTo` pq
|
||||
es <- execute bs
|
||||
es <- executeBound bs
|
||||
r <- f es
|
||||
print r
|
||||
)
|
||||
|
@ -5,7 +5,7 @@ import QueryArrowExample
|
||||
|
||||
import Database.Record
|
||||
|
||||
import Database.Relational.Query.Arrow
|
||||
import Database.Relational.Arrow
|
||||
import Database.HDBC (IConnection, SqlValue)
|
||||
|
||||
import User (User)
|
||||
@ -13,8 +13,8 @@ import Group (Group)
|
||||
|
||||
import PgTestDataSource (connect)
|
||||
import Database.HDBC.Record
|
||||
(ExecutedStatement, bindTo, execute
|
||||
,runQuery, prepareQuery, fetchUnique, fetchUnique')
|
||||
(ExecutedStatement, bindTo, executeBound,
|
||||
runQuery, prepareQuery, fetchUnique, fetchUnique')
|
||||
import Database.HDBC.Session (withConnectionIO, handleSqlError')
|
||||
|
||||
|
||||
@ -56,7 +56,7 @@ runU f = handleSqlError' $ withConnectionIO connect
|
||||
putStrLn $ "SQL: " ++ show userGroupU
|
||||
pq <- prepareQuery conn (relationalQuery userGroupU)
|
||||
let bs = ("Kei Hibino", "Haskell") `bindTo` pq
|
||||
es <- execute bs
|
||||
es <- executeBound bs
|
||||
r <- f es
|
||||
print r
|
||||
)
|
||||
|
@ -1,9 +1,10 @@
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
{-# LANGUAGE RankNTypes #-}
|
||||
|
||||
import Data.Functor.ProductIsomorphic
|
||||
import Database.Record
|
||||
|
||||
import Database.Relational.Query
|
||||
import Database.Relational
|
||||
import Database.HDBC (IConnection, SqlValue)
|
||||
import Data.Int (Int32)
|
||||
|
||||
|
@ -1,9 +1,10 @@
|
||||
{-# LANGUAGE FlexibleContexts #-}
|
||||
|
||||
import Prelude hiding (seq)
|
||||
import Data.Functor.ProductIsomorphic
|
||||
import Database.HDBC (IConnection, SqlValue, commit)
|
||||
import Database.Record
|
||||
import Database.Relational.Query
|
||||
import Database.Relational
|
||||
import Database.HDBC.Record
|
||||
import Database.HDBC.Session
|
||||
import qualified One
|
||||
|
@ -15,6 +15,7 @@ Executable example1
|
||||
default-language: Haskell2010
|
||||
build-depends: base <5
|
||||
, template-haskell
|
||||
, product-isomorphic
|
||||
, names-th
|
||||
, persistable-record
|
||||
, relational-query
|
||||
@ -38,6 +39,7 @@ Executable example1Arr
|
||||
default-language: Haskell2010
|
||||
build-depends: base <5
|
||||
, template-haskell
|
||||
, product-isomorphic
|
||||
, names-th
|
||||
, persistable-record
|
||||
, relational-query
|
||||
@ -61,6 +63,7 @@ Executable example2
|
||||
default-language: Haskell2010
|
||||
build-depends: base <5
|
||||
, template-haskell
|
||||
, product-isomorphic
|
||||
, names-th
|
||||
, persistable-record
|
||||
, relational-query
|
||||
@ -79,6 +82,7 @@ Executable example3
|
||||
default-language: Haskell2010
|
||||
build-depends: base <5
|
||||
, template-haskell
|
||||
, product-isomorphic
|
||||
, names-th
|
||||
, persistable-record
|
||||
, relational-query
|
||||
@ -97,6 +101,7 @@ Executable example4
|
||||
default-language: Haskell2010
|
||||
build-depends: base <5
|
||||
, template-haskell
|
||||
, product-isomorphic
|
||||
, names-th
|
||||
, persistable-record
|
||||
, relational-query
|
||||
|
Loading…
Reference in New Issue
Block a user