Servant.Swagger.UI.Core

Swagger UI API

type SwaggerSchemaUI (dir :: Symbol) (schema :: Symbol) = SwaggerSchemaUI' dir (schema :> Get '[JSON] Swagger)

Swagger schema + ui api.

SwaggerSchemaUI "swagger-ui" "swagger.json" will result into following hierarchy:

/swagger.json
/swagger-ui
/swagger-ui/index.html
/swagger-ui/...

type SwaggerSchemaUI' (dir :: Symbol) (api :: *) = api :<|> (dir :> (Get '[HTML] (SwaggerUiHtml dir api) :<|> (("index.html" :> Get '[HTML] (SwaggerUiHtml dir api)) :<|> Raw)))

Use SwaggerSchemaUI' when you need even more control over where swagger.json is served (e.g. subdirectory).

Implementation details

data SwaggerUiHtml (dir :: Symbol) (api :: *)

Index file for swagger ui.

It's configured by the location of swagger schema and directory it lives under.

Implementation detail: the index.html is prepopulated with parameters to find schema file automatically.

Constructors

SwaggerUiHtml Text

Instances

(KnownSymbol dir, HasLink * api, (~) * Link (MkLink * api), IsElem api api) => ToMarkup (SwaggerUiHtml dir api)

Methods

toMarkup :: SwaggerUiHtml dir api -> Markup

preEscapedToMarkup :: SwaggerUiHtml dir api -> Markup

swaggerSchemaUIServerImpl :: Server api ~ Handler Swagger => Text -> [(FilePath, ByteString)] -> Swagger -> Server (SwaggerSchemaUI' dir api)

data Handler a :: * -> *

Instances

Monad Handler

Methods

(>>=) :: Handler a -> (a -> Handler b) -> Handler b

(>>) :: Handler a -> Handler b -> Handler b

return :: a -> Handler a

fail :: String -> Handler a

Functor Handler

Methods

fmap :: (a -> b) -> Handler a -> Handler b

(<$) :: a -> Handler b -> Handler a

Applicative Handler

Methods

pure :: a -> Handler a

(<*>) :: Handler (a -> b) -> Handler a -> Handler b

liftA2 :: (a -> b -> c) -> Handler a -> Handler b -> Handler c

(*>) :: Handler a -> Handler b -> Handler b

(<*) :: Handler a -> Handler b -> Handler a

MonadIO Handler

Methods

liftIO :: IO a -> Handler a

MonadThrow Handler

Methods

throwM :: Exception e => e -> Handler a

MonadCatch Handler

Methods

catch :: Exception e => Handler a -> (e -> Handler a) -> Handler a

MonadError ServantErr Handler

Methods

throwError :: ServantErr -> Handler a

catchError :: Handler a -> (ServantErr -> Handler a) -> Handler a

MonadBase IO Handler

Methods

liftBase :: IO α -> Handler α

MonadBaseControl IO Handler

Associated Types

type StM (Handler :: * -> *) a :: *

Methods

liftBaseWith :: (RunInBase Handler IO -> IO a) -> Handler a

restoreM :: StM Handler a -> Handler a

Generic (Handler a)

Associated Types

type Rep (Handler a) :: * -> *

Methods

from :: Handler a -> Rep (Handler a) x

to :: Rep (Handler a) x -> Handler a

type StM Handler a

type StM Handler a = Either ServantErr a

type Rep (Handler a)

type Rep (Handler a) = D1 * (MetaData "Handler" "Servant.Server.Internal.Handler" "servant-server-0.12-8kdMo61XDxoHBwhkaSepVO" True) (C1 * (MetaCons "Handler" PrefixI True) (S1 * (MetaSel (Just Symbol "runHandler'") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * (ExceptT ServantErr IO a))))