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"