35 lines
741 B
Haskell
35 lines
741 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
{-# LANGUAGE PackageImports #-}
|
||
|
module Control.User where
|
||
|
|
||
|
import Servant.Server (Server)
|
||
|
import Servant.Client
|
||
|
import Servant.Client.Core.Auth
|
||
|
|
||
|
import Data.Aeson (decode)
|
||
|
|
||
|
import Control.Monad.Reader (ask)
|
||
|
import Control.Monad.IO.Class (liftIO)
|
||
|
|
||
|
import Network.HTTP.Client
|
||
|
|
||
|
-- imports from mateamt
|
||
|
|
||
|
import qualified "mateamt" Types as MT
|
||
|
|
||
|
-- internal imports
|
||
|
|
||
|
import Types
|
||
|
import Client
|
||
|
import View
|
||
|
import AuthUtil
|
||
|
import API
|
||
|
|
||
|
userListControl :: Int -> UserHandler UserPage
|
||
|
userListControl uid = do
|
||
|
manager <- liftIO $ newManager defaultManagerSettings
|
||
|
muser <- liftIO $ runClientM
|
||
|
(userList (Just MT.All))
|
||
|
(mkClientEnv manager (BaseUrl Http "localhost" 8000 ""))
|
||
|
error (show muser)
|