khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-10-26 10:18:01 +03:00
Code Issues Projects Releases Wiki Activity

examples/HDBC/PostgreSQL: apply namespace updates.

Browse Source
This commit is contained in:
Kei Hibino 2017-11-23 19:59:07 +09:00
parent fed913fce4
commit 3a799f48b7
7 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/HDBC/PostgreSQL/example/1/QueryArrowExample.hs
View File

@ -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)

3
examples/HDBC/PostgreSQL/example/1/QueryExample.hs
View File

@ -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)

8
examples/HDBC/PostgreSQL/example/1/run.hs
View File

@ -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
)

8
examples/HDBC/PostgreSQL/example/1/runArrow.hs
View File

@ -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
)

3
examples/HDBC/PostgreSQL/example/3/query.hs
View File

@ -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)

3
examples/HDBC/PostgreSQL/example/4/modifyExample.hs
View File

@ -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

5
examples/HDBC/PostgreSQL/hrr-example-HDBC-postgresql.cabal
View File

@ -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