module PersistTestPetType where

import Database.Persist.TH

data PetType = Cat | Dog
    deriving (Int -> PetType -> ShowS
[PetType] -> ShowS
PetType -> String
(Int -> PetType -> ShowS)
-> (PetType -> String) -> ([PetType] -> ShowS) -> Show PetType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PetType] -> ShowS
$cshowList :: [PetType] -> ShowS
show :: PetType -> String
$cshow :: PetType -> String
showsPrec :: Int -> PetType -> ShowS
$cshowsPrec :: Int -> PetType -> ShowS
Show, ReadPrec [PetType]
ReadPrec PetType
Int -> ReadS PetType
ReadS [PetType]
(Int -> ReadS PetType)
-> ReadS [PetType]
-> ReadPrec PetType
-> ReadPrec [PetType]
-> Read PetType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PetType]
$creadListPrec :: ReadPrec [PetType]
readPrec :: ReadPrec PetType
$creadPrec :: ReadPrec PetType
readList :: ReadS [PetType]
$creadList :: ReadS [PetType]
readsPrec :: Int -> ReadS PetType
$creadsPrec :: Int -> ReadS PetType
Read, PetType -> PetType -> Bool
(PetType -> PetType -> Bool)
-> (PetType -> PetType -> Bool) -> Eq PetType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PetType -> PetType -> Bool
$c/= :: PetType -> PetType -> Bool
== :: PetType -> PetType -> Bool
$c== :: PetType -> PetType -> Bool
Eq)
derivePersistField "PetType"