odd-jobs-0.2.2: A full-featured PostgreSQL-backed job queue (with an admin UI)

Safe HaskellNone
LanguageHaskell2010

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

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

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 #