khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-29 15:03:31 +03:00
Code Issues Projects Releases Wiki Activity

examples: apply DeriveGeneric.

Browse Source
This commit is contained in:
Kei Hibino 2017-03-17 10:56:33 +09:00
parent 8a0083598f
commit b545487b97
11 changed files with 33 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/HDBC/PostgreSQL/example/1/Group.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module Group where
import GHC.Generics (Generic)
import Prelude hiding (id)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE1" "group" [''Show])
"EXAMPLE1" "group" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/1/Membership.hs
View File

@ -1,8 +1,9 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module Membership where
import GHC.Generics (Generic)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE1" "membership" [])
"EXAMPLE1" "membership" [''Generic])

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

@ -1,9 +1,10 @@
{-# LANGUAGE Arrows #-}
{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
module QueryArrowExample where
import GHC.Generics (Generic)
import Database.Record
import Database.Relational.Query.Arrow
@ -54,7 +55,7 @@ haskUserGroup =
returnA -< u >< mg ?! snd'
data UserOrGroup = UserOrGroup { mayUser :: Maybe User, mayGroup :: Maybe Group }
deriving Show
deriving (Show, Generic)
$(makeRecordPersistableDefault ''UserOrGroup)

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

@ -1,9 +1,10 @@
{-# LANGUAGE MonadComprehensions #-}
{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleContexts, FlexibleInstances, MultiParamTypeClasses, DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
module QueryExample where
import GHC.Generics (Generic)
import Database.Record
import Database.Relational.Query
@ -56,7 +57,7 @@ haskUserGroup =
]
data UserOrGroup = UserOrGroup { mayUser :: Maybe User, mayGroup :: Maybe Group }
deriving Show
deriving (Show, Generic)
$(makeRecordPersistableDefault ''UserOrGroup)

5
examples/HDBC/PostgreSQL/example/1/User.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module User where
import GHC.Generics (Generic)
import Prelude hiding (id)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE1" "user" [''Show])
"EXAMPLE1" "user" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/2/KeyTest.hs
View File

@ -1,8 +1,9 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module KeyTest where
import GHC.Generics (Generic)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE2" "keyTest" [])
"EXAMPLE2" "keyTest" [''Generic])

5
examples/HDBC/PostgreSQL/example/3/History.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module History where
import GHC.Generics (Generic)
import Prelude hiding (seq, log)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE3" "history" [''Show])
"EXAMPLE3" "history" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/3/SetA.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module SetA where
import GHC.Generics (Generic)
import Prelude hiding (seq)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE3" "set_a" [''Show])
"EXAMPLE3" "set_a" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/3/SetB.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module SetB where
import GHC.Generics (Generic)
import Prelude hiding (seq)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE3" "set_b" [''Show])
"EXAMPLE3" "set_b" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/4/One.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module One where
import GHC.Generics (Generic)
import Prelude hiding (seq)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE4" "one" [''Show])
"EXAMPLE4" "one" [''Show, ''Generic])

5
examples/HDBC/PostgreSQL/example/4/StockGoods.hs
View File

@ -1,9 +1,10 @@
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances, DeriveGeneric #-}
module StockGoods where
import GHC.Generics (Generic)
import Prelude hiding (seq)
import PgTestDataSource (defineTable)
$(defineTable []
"EXAMPLE4" "stock_goods" [''Show])
"EXAMPLE4" "stock_goods" [''Show, ''Generic])