matebeamter/src/Control/User.hs

36 lines
782 B
Haskell
Raw Normal View History

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
(ReadState mngr l10n) <- ask
2019-09-08 15:27:38 +00:00
let loc = Locale "en"
euser <- liftIO $ runClientM
(userList (Nothing))
2019-09-11 04:27:54 +00:00
(mkClientEnv mngr (BaseUrl Http "localhost" 8000 ""))
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"