module Controller.Statistics
  ( paymentsAndIncomes
  ) where

import           Control.Monad.IO.Class (liftIO)
import           Web.Scotty             (ActionM)
import qualified Web.Scotty             as S

import qualified Model.Query            as Query
import qualified Persistence.Income     as IncomePersistence
import qualified Persistence.Payment    as PaymentPersistence
import qualified Secure
import qualified Statistics

paymentsAndIncomes :: ActionM ()
paymentsAndIncomes =
  Secure.loggedAction (\_ -> do
    payments <- liftIO $ Query.run PaymentPersistence.listAllPunctual
    incomes <- liftIO $ Query.run IncomePersistence.listAll
    S.json (Statistics.paymentsAndIncomes payments incomes)
  )