yesod-dsl-0.2.1: codegen/hs-client-enum.cg

{-# LANGUAGE TemplateHaskell #-}
module ~{moduleName m}Client.~{enumName e} where
import qualified Data.Aeson.TH as AT

data ~{enumName e} = ~{intercalate " | " $ enumValues e} 
    deriving (Show, Eq, Ord, Read)

$(AT.deriveJSON AT.defaultOptions ''~{enumName e})