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