haskell-persistent/persistent-qq/test/PersistTestPetType.hs

{-# LANGUAGE TemplateHaskell #-}
module PersistTestPetType where

import Database.Persist.TH

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