yesod-dsl-0.1.1.2: codegen/enum.cg

data ~{enumName e} = ~{intercalate " | " (enumValues e)} deriving (Show, Read, Eq)
derivePersistField "~{enumName e}"
deriveJSON id ''~{enumName e}

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