19 lines
369 B
Haskell
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
|