yesod-dsl-0.2.0: codegen/enum.cg

data ~{enumName e} = ~{prefixedValues} deriving (Eq, Ord, Enum)

instance Read ~{enumName e} where
~{readsPrecs}    readsPrec _ _ = [ ]

instance Show ~{enumName e} where
~{showsPrecs}
    
derivePersistField "~{enumName e}"

instance A.FromJSON ~{enumName e} where
    parseJSON = A.withText "~{enumName e}" (\v -> case v of
~{parseJSONs}        _ -> mzero)

instance A.ToJSON ~{enumName e} where
~{toJSONs}

instance PP.PathPiece ~{enumName e} where
~{fromPathPieces}
    fromPathPiece _ = Nothing
~{toPathPieces}

instance FieldFilter ~{enumName e} where
instance FieldFilter (Maybe ~{enumName e}) where