postgresql-query-3.1.0: example/Main.hs

module Main where

import Data.Char
import Data.Text (Text)
import Data.Time
import Database.PostgreSQL.Query

-- | Example enum type to check out how 'derivePgEnum' works
data Species
  = Dog
  | Cat
  | Snake

derivePgEnum (map toLower) ''Species

-- | Example structure to check out how 'deriveFromRow' works
data AnimalInfo = AnimalInfo
  { _aiName    :: Text
  , _aiSpecies :: Species
  , _aiBirtDay :: UTCTime
  }

deriveFromRow ''AnimalInfo
deriveToRow ''AnimalInfo

main :: IO ()
main = do
  return ()