matebeamter/src/Types/Journal.hs

19 lines
357 B
Haskell

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