haskell-relational-record/doc/examples/Employee.hs
2013-07-03 20:52:28 +09:00

12 lines
242 B
Haskell

{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
module Employee where
import Prelude hiding (id)
import Database.Record.TH (derivingShow)
import DataSource (defineTable)
$(defineTable []
"LEARNINGSQL" "employee" [derivingShow])