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