{-# 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
  )