persistent-qq-2.9.1.1: test/PersistTestPetType.hs

{-# LANGUAGE TemplateHaskell #-}
module PersistTestPetType where

import Database.Persist.TH

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