yesod-dsl-0.1.1.4: codegen/enum.cg

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

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 PathPiece ~{enumName e} where
~{fromPathPieces}
    fromPathPiece _ = Nothing
~{toPathPieces}