blob: 70760aea9366c3ba399039d7c1b5c0bdd27bbbb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE OverloadedStrings #-}
module Controller.Payer
( getPayers
) where
import Web.Scotty
import Control.Monad.IO.Class (liftIO)
import Model.Database
import qualified Model.Payer as P
import Secure (loggedAction)
getPayers :: ActionM ()
getPayers =
Secure.loggedAction (\_ ->
(liftIO $ runDb P.getPayers) >>= json
)
|
