{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE MultiParamTypeClasses #-} module Types.User where import Servant.API import Servant.HTML.Blaze import Web.Internal.FormUrlEncoded import GHC.Generics newtype UserRecharge = UserRecharge { userRechargeAmount :: Float } deriving (Show, Generic) instance MimeUnrender HTML UserRecharge instance FromForm UserRecharge