draft out types for journal

src/Types/Journal.hs

@@ -1,11 +1,48 @@
 {-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE OverloadedStrings #-}
+-- {-# LANGUAGE OverloadedStrings #-}
 module Types.Journal where
 
-data JournalEntry
-  = JournalEntry
-    { journalEntryDescription :: String
+import GHC.Generics
+
+import qualified Data.Text as T (Text)
+
+import Data.Aeson
+
+import Data.Time.Clock (UTCTime)
+
+data JournalEntry = JournalEntry
+  { journalEntryDescription :: T.Text
   , journalEntryTimestamp   :: UTCTime
   , journalEntryAmount      :: Int
+  , journalEntryTotalAmount :: Int
   , journalEntryIsCheck     :: Bool
   }
+  deriving (Generic, Show)
+
+instance ToJSON JournalEntry where
+  toEncoding = genericToEncoding defaultOptions
+
+instance FromJSON JournalEntry
+
+
+data JournalSubmit = JournalSubmit
+  { journalSubmitDescription :: T.Text
+  , journalSubmitAmount      :: Int
+  }
+  deriving (Generic, Show)
+
+instance ToJSON JournalSubmit where
+  toEncoding = genericToEncoding defaultOptions
+
+instance FromJSON JournalSubmit
+
+
+data JournalCashCheck = JournalCashCheck
+  { journalCashCheckTotalAmount :: Int
+  }
+  deriving (Generic, Show)
+
+instance ToJSON JournalCashCheck where
+  toEncoding = genericToEncoding defaultOptions
+
+instance FromJSON JournalCashCheck