Ticket #5016: Tests.hs

{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Tests where

import Database.Persist
import Database.Persist.TH

mkPersist [$persist|
  Person
    name String Update Eq Ne Desc
    age Int Update "Asc" Desc Lt "some ignored -- attribute" Eq Add
    color String Maybe Eq Ne -- this is a comment sql=foobarbaz
    PersonNameKey name -- this is a comment sql=foobarbaz
  Pet
    owner PersonId Eq
    name String
    type PetType
|]

data PetType = Cat | Dog
    deriving (Show, Read, Eq)
derivePersistField "PetType"