matebeamter/src/Control/User.hs
2019-09-16 09:44:46 +02:00

36 lines
731 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PackageImports #-}
module Control.User where
import Servant.Client
import Data.Text.I18n
import Control.Monad.Reader (ask)
import Control.Monad.IO.Class (liftIO)
-- imports from mateamt
-- internal imports
import Types
import Client
import View
userSelectControl :: UserHandler UserSelectPage
userSelectControl = do
(ReadState l10n backend) <- ask
let loc = Locale "en"
euser <- liftIO $ runClientM
(userList (Nothing))
backend
case euser of
Right uss ->
return $ userSelectPage l10n loc uss
Left err ->
error $ show err
userOverviewControl :: Int -> UserHandler UserOverviewPage
userOverviewControl uid = do
error "Not yet implemented"