matebeamter/src/Types/User.hs

19 lines
369 B
Haskell

{-# 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