mateamt/src/Control/Role.hs

43 lines
806 B
Haskell
Raw Normal View History

2020-07-19 06:27:15 +00:00
{-# 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
2020-07-19 10:27:28 +00:00
roleNew _ _ = notImplemented
2020-07-19 06:27:15 +00:00
2020-07-19 10:27:28 +00:00
roleUpdate _ _ = notImplemented
2020-07-19 06:27:15 +00:00
2020-07-19 10:27:28 +00:00
roleDelete _ _ = notImplemented
2020-07-19 06:27:15 +00:00
2020-07-19 10:58:25 +00:00
roleAssociationList
:: MateHandler [RoleAssociation]
roleAssociationList =
selectAllRoleAssociations =<< asks rsConnection
2020-07-19 06:27:15 +00:00
2020-07-19 10:27:28 +00:00
roleAssociationSubmit _ _ = notImplemented
2020-07-19 06:27:15 +00:00
2020-07-19 10:27:28 +00:00
roleAssociationDelete _ _ = notImplemented
2020-07-19 06:27:15 +00:00
2020-07-19 10:27:28 +00:00
notImplemented :: MateHandler a
2020-07-19 06:27:15 +00:00
notImplemented = throwError $ err501
{ errBody = "Function has not yet been implemented!"
}