module Handler.Journal where

import Import as I
import Data.List as L
import Handler.Common

getJournalR :: Handler Html
getJournalR = do
  entries <- runDB $ selectList [] [Asc TransactionId]
  total <- return $ L.sum $ I.map (transactionAmount . entityVal) entries
  cashBalance <- getCashierBalance
  defaultLayout $ do
    $(widgetFile "journal")