matebeamter/src/Types/User.hs

19 lines
369 B
Haskell
Raw Normal View History

2019-11-01 11:22:28 +00:00
{-# 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