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