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
|