39 lines
670 B
Haskell
39 lines
670 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Control.Role where
|
||
|
|
|
||
|
|
import Servant
|
||
|
|
|
||
|
|
import Control.Monad (void, when)
|
||
|
|
|
||
|
|
import Control.Monad.Reader (asks)
|
||
|
|
|
||
|
|
import Control.Monad.IO.Class (liftIO)
|
||
|
|
|
||
|
|
import qualified Data.Text as T
|
||
|
|
|
||
|
|
-- internal imports
|
||
|
|
|
||
|
|
import Types
|
||
|
|
import Model
|
||
|
|
|
||
|
|
roleList :: MateHandler [Role]
|
||
|
|
roleList = do
|
||
|
|
conn <- asks rsConnection
|
||
|
|
selectAllRoles conn
|
||
|
|
|
||
|
|
roleNew = notImpelemented
|
||
|
|
|
||
|
|
roleUpdate = notImpelemented
|
||
|
|
|
||
|
|
roleDelete = notImpelemented
|
||
|
|
|
||
|
|
roleAssociationList = notImpelemented
|
||
|
|
|
||
|
|
roleAssociationSubmit = notImpelemented
|
||
|
|
|
||
|
|
roleAssociationDelete = notImpelemented
|
||
|
|
|
||
|
|
notImplemented = throwError $ err501
|
||
|
|
{ errBody = "Function has not yet been implemented!"
|
||
|
|
}
|