haskell-relational-record/doc/examples/Branch.hs

12 lines
243 B
Haskell
Raw Normal View History

2013-07-03 15:52:28 +04:00
{-# LANGUAGE TemplateHaskell, MultiParamTypeClasses #-}
module Branch where
import Prelude hiding (id, zip)
import Database.Record.TH (derivingShow)
import DataSource (defineTable)
$(defineTable []
"LEARNINGSQL" "branch" [derivingShow])