2019-09-08 10:48:57 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
{-# LANGUAGE PackageImports #-}
|
|
|
|
module Control.User where
|
|
|
|
|
|
|
|
import Servant.Client
|
|
|
|
|
2019-09-08 15:27:38 +00:00
|
|
|
import Data.Text.I18n
|
|
|
|
|
2019-09-08 10:48:57 +00:00
|
|
|
import Control.Monad.Reader (ask)
|
|
|
|
import Control.Monad.IO.Class (liftIO)
|
|
|
|
|
|
|
|
-- imports from mateamt
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
|
|
import Types
|
|
|
|
import Client
|
|
|
|
import View
|
|
|
|
|
2019-09-11 04:27:54 +00:00
|
|
|
userSelectControl :: UserHandler UserSelectPage
|
|
|
|
userSelectControl = do
|
2019-09-16 07:44:46 +00:00
|
|
|
(ReadState l10n backend) <- ask
|
2019-09-08 15:27:38 +00:00
|
|
|
let loc = Locale "en"
|
|
|
|
euser <- liftIO $ runClientM
|
2019-09-16 07:44:46 +00:00
|
|
|
(userList (Nothing))
|
|
|
|
backend
|
2019-09-08 15:27:38 +00:00
|
|
|
case euser of
|
|
|
|
Right uss ->
|
2019-09-11 04:27:54 +00:00
|
|
|
return $ userSelectPage l10n loc uss
|
2019-09-08 15:27:38 +00:00
|
|
|
Left err ->
|
|
|
|
error $ show err
|
2019-09-11 04:27:54 +00:00
|
|
|
|
|
|
|
userOverviewControl :: Int -> UserHandler UserOverviewPage
|
|
|
|
userOverviewControl uid = do
|
|
|
|
error "Not yet implemented"
|