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

Update examples along with deprecations.

Browse Source
This commit is contained in:
Kei Hibino 2016-02-12 20:50:15 +09:00
parent d5c6b979d6
commit 2df540041b
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/slide/haskell-hackathon-201412/Birthday.hs
View File

@ -7,7 +7,7 @@ import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
import Database.HDBC.Query.TH () import Database.HDBC.Query.TH ()
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "birthday" "PUBLIC" "birthday"
[ ("name" , [t| String |]) [ ("name" , [t| String |])
, ("day" , [t| Day |]) , ("day" , [t| Day |])

2
doc/slide/haskell-hackathon-201412/Person.hs
View File

@ -6,7 +6,7 @@ import Data.Int
import Database.Relational.Query import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "person" "PUBLIC" "person"
[ ("name" , [t| String |]) [ ("name" , [t| String |])
, ("age" , [t| Int32 |]) , ("age" , [t| Int32 |])

2
doc/slide/haskell-hackathon-201412/mytable.hs
View File

@ -6,7 +6,7 @@ import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "my_table" "PUBLIC" "my_table"
[ ("person", [t| String |]) [ ("person", [t| String |])
, ("family", [t| String |]) , ("family", [t| String |])

2
doc/slide/tsukuba-201412/Birthday.hs
View File

@ -7,7 +7,7 @@ import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
import Database.HDBC.Query.TH () import Database.HDBC.Query.TH ()
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "birthday" "PUBLIC" "birthday"
[ ("name" , [t| String |]) [ ("name" , [t| String |])
, ("day" , [t| Day |]) , ("day" , [t| Day |])

2
doc/slide/tsukuba-201412/Person.hs
View File

@ -6,7 +6,7 @@ import Data.Int
import Database.Relational.Query import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "person" "PUBLIC" "person"
[ ("name" , [t| String |]) [ ("name" , [t| String |])
, ("age" , [t| Int32 |]) , ("age" , [t| Int32 |])

2
doc/slide/tsukuba-201412/mytable.hs
View File

@ -6,7 +6,7 @@ import Database.Relational.Query
import Database.Relational.Query.TH import Database.Relational.Query.TH
$(defineTableDefault defaultConfig $(defineTable defaultConfig
"PUBLIC" "my_table" "PUBLIC" "my_table"
[ ("person", [t| String |]) [ ("person", [t| String |])
, ("family", [t| String |]) , ("family", [t| String |])