1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
{-# LANGUAGE DeriveGeneric #-} module Model.Json.AddIncome ( AddIncome(..) ) where import GHC.Generics import Data.Aeson import Data.Time.Calendar (Day) data AddIncome = AddIncome { day :: Day , amount :: Int } deriving (Show, Generic) instance FromJSON AddIncome