2019-08-10 08:37:45 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Control.Journal where
|
|
|
|
|
|
|
|
import Servant
|
|
|
|
|
|
|
|
import Control.Monad.Reader (ask)
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
|
|
import Types
|
|
|
|
import Model.Journal
|
|
|
|
|
|
|
|
journalShow
|
|
|
|
:: Maybe Int
|
|
|
|
-> Maybe Int
|
|
|
|
-> Maybe Int
|
|
|
|
-> MateHandler [JournalEntry]
|
|
|
|
journalShow (Just _) mlimit moffset = do
|
|
|
|
conn <- rsConnection <$> ask
|
|
|
|
selectJournalEntries mlimit moffset conn
|
|
|
|
journalShow Nothing _ _ =
|
2019-09-11 11:54:18 +00:00
|
|
|
throwError $ err401
|
2019-08-10 08:37:45 +00:00
|
|
|
{ errBody = "No Authentication present"
|
|
|
|
}
|