mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2024-11-30 11:46:58 +03:00
16 lines
354 B
Haskell
16 lines
354 B
Haskell
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses, FlexibleInstances #-}
|
|
|
|
module Birthday where
|
|
|
|
import Data.Time
|
|
import Database.Relational.Query
|
|
import Database.Relational.Query.TH
|
|
import Database.HDBC.Query.TH ()
|
|
|
|
$(defineTable defaultConfig
|
|
"PUBLIC" "birthday"
|
|
[ ("name" , [t| String |])
|
|
, ("day" , [t| Day |])
|
|
]
|
|
[] [0] (Just 0))
|