Safe Haskell	None
Language	Haskell2010

OddJobs.Endpoints

Description

TODO: Rename this to OddJobs.Servant

Documentation

type StaticAssetRoutes = (:<|>) ((:<|>) ((:<|>) ((:>) "bootstrap" ((:<|>) ((:>) "css" ((:<|>) ((:<|>) ((:<|>) ((:<|>) ((:<|>) ((:>) "bootstrap-grid.css" (Get '[CSS] ByteString)) ((:>) "bootstrap-grid.min.css" (Get '[CSS] ByteString))) ((:>) "bootstrap-reboot.css" (Get '[CSS] ByteString))) ((:>) "bootstrap-reboot.min.css" (Get '[CSS] ByteString))) ((:>) "bootstrap.css" (Get '[CSS] ByteString))) ((:>) "bootstrap.min.css" (Get '[CSS] ByteString)))) ((:>) "js" ((:<|>) ((:<|>) ((:<|>) ((:>) "bootstrap.bundle.js" (Get '[JS] ByteString)) ((:>) "bootstrap.bundle.min.js" (Get '[JS] ByteString))) ((:>) "bootstrap.js" (Get '[JS] ByteString))) ((:>) "bootstrap.min.js" (Get '[JS] ByteString)))))) ((:>) "css" ((:<|>) ((:<|>) ((:>) "Navigation-Clean1.css" (Get '[CSS] ByteString)) ((:>) "logo-slider.css" (Get '[CSS] ByteString))) ((:>) "styles.css" (Get '[CSS] ByteString))))) ((:>) "js" ((:<|>) ((:<|>) ((:>) "custom.js" (Get '[JS] ByteString)) ((:>) "jquery.min.js" (Get '[JS] ByteString))) ((:>) "logo-slider.js" (Get '[JS] ByteString))))) ((:>) "odd-jobs-color-logo.png" (Get '[PNG] ByteString)) Source #

staticAssetServer :: forall m. Applicative m => ServerT StaticAssetRoutes m Source #

data Routes route Source #

Constructors

Routes

Fields

rFilterResults :: route :- (QueryParam "filters" Filter :> Get '[HTML] (Html ()))
rEnqueue :: route :- ("enqueue" :> (Capture "jobId" JobId :> Post '[HTML] NoContent))
rRunNow :: route :- ("run" :> (Capture "jobId" JobId :> Post '[HTML] NoContent))
rCancel :: route :- ("cancel" :> (Capture "jobId" JobId :> Post '[HTML] NoContent))
rRefreshJobTypes :: route :- ("refresh-job-types" :> Post '[HTML] NoContent)
rRefreshJobRunners :: route :- ("refresh-job-runners" :> Post '[HTML] NoContent)

Instances

Generic (Routes route) Source #
Instance details Defined in OddJobs.Endpoints Associated Types type Rep (Routes route) :: Type -> Type # Methods from :: Routes route -> Rep (Routes route) x # to :: Rep (Routes route) x -> Routes route #
type Rep (Routes route) Source #
Instance details Defined in OddJobs.Endpoints type Rep (Routes route) = D1 (MetaData "Routes" "OddJobs.Endpoints" "odd-jobs-0.2.2-IQT5Y8dLVtd1UwbOhFLeU6" False) (C1 (MetaCons "Routes" PrefixI True) ((S1 (MetaSel (Just "rFilterResults") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- (QueryParam "filters" Filter :> Get (HTML ': ([] :: [Type])) (Html ())))) :: (S1 (MetaSel (Just "rEnqueue") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- ("enqueue" :> (Capture "jobId" JobId :> Post (HTML ': ([] :: [Type])) NoContent)))) :: S1 (MetaSel (Just "rRunNow") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- ("run" :> (Capture "jobId" JobId :> Post (HTML ': ([] :: [Type])) NoContent)))))) :: (S1 (MetaSel (Just "rCancel") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- ("cancel" :> (Capture "jobId" JobId :> Post (HTML ': ([] :: [Type])) NoContent)))) :: (S1 (MetaSel (Just "rRefreshJobTypes") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- ("refresh-job-types" :> Post (HTML ': ([] :: [Type])) NoContent))) :*: S1 (MetaSel (Just "rRefreshJobRunners") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (route :- ("refresh-job-runners" :> Post (HTML ': ([] :: [Type])) NoContent)))))))

type FinalAPI = ToServant Routes AsApi :<|> ("assets" :> StaticAssetRoutes) Source #

data Env Source #

Constructors

Env
Fields envRoutes :: Routes envJobTypesRef :: IORef [Text] envJobRunnersRef :: IORef [JobRunnerName]

mkEnv :: MonadIO m => Config -> (Text -> Text) -> m Env Source #

stopApp :: IO () Source #

server :: forall m. MonadIO m => Config -> Env -> (forall a. Handler a -> m a) -> ServerT FinalAPI m Source #

server2 :: Config -> Env -> Routes AsServer Source #

refreshJobRunners :: Config -> Env -> Handler NoContent Source #

refreshJobTypes :: Config -> Env -> Handler NoContent Source #

cancelJob :: Config -> Env -> JobId -> Handler NoContent Source #

runJobNow :: Config -> Env -> JobId -> Handler NoContent Source #

enqueueJob :: Config -> Env -> JobId -> Handler NoContent Source #

redirectToHome :: Env -> Handler NoContent Source #

filterResults :: Config -> Env -> Maybe Filter -> Handler (Html ()) Source #

routes :: (Text -> Text) -> Routes Source #