{-# LANGUAGE DeriveGeneric #-}
module PersistTestPetCollarType where

import Data.Aeson
import Data.Text (Text)
import GHC.Generics

import Database.Persist.TH

data PetCollar = PetCollar {PetCollar -> Text
tag :: Text, PetCollar -> Bool
bell :: Bool}
    deriving ((forall x. PetCollar -> Rep PetCollar x)
-> (forall x. Rep PetCollar x -> PetCollar) -> Generic PetCollar
forall x. Rep PetCollar x -> PetCollar
forall x. PetCollar -> Rep PetCollar x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. PetCollar -> Rep PetCollar x
from :: forall x. PetCollar -> Rep PetCollar x
$cto :: forall x. Rep PetCollar x -> PetCollar
to :: forall x. Rep PetCollar x -> PetCollar
Generic, PetCollar -> PetCollar -> Bool
(PetCollar -> PetCollar -> Bool)
-> (PetCollar -> PetCollar -> Bool) -> Eq PetCollar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PetCollar -> PetCollar -> Bool
== :: PetCollar -> PetCollar -> Bool
$c/= :: PetCollar -> PetCollar -> Bool
/= :: PetCollar -> PetCollar -> Bool
Eq, Int -> PetCollar -> ShowS
[PetCollar] -> ShowS
PetCollar -> String
(Int -> PetCollar -> ShowS)
-> (PetCollar -> String)
-> ([PetCollar] -> ShowS)
-> Show PetCollar
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PetCollar -> ShowS
showsPrec :: Int -> PetCollar -> ShowS
$cshow :: PetCollar -> String
show :: PetCollar -> String
$cshowList :: [PetCollar] -> ShowS
showList :: [PetCollar] -> ShowS
Show)
instance ToJSON PetCollar
instance FromJSON PetCollar

derivePersistFieldJSON "PetCollar"