{-# LANGUAGE OverloadedStrings #-}

module Controller.User
  ( getUsers
  ) where

import Web.Scotty

import Control.Monad.IO.Class (liftIO)

import qualified Secure

import Model.Database
import qualified Model.User as User

getUsers :: ActionM ()
getUsers =
  Secure.loggedAction (\_ ->
    (liftIO $ map User.getJsonUser <$> runDb User.list) >>= json
  )