haskell-relational-record/doc/examples/Business.hs
2014-01-05 22:52:57 +09:00

12 lines
261 B
Haskell

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