Safe Haskell	None
Language	Haskell98

Keter.Types.Middleware

Documentation

data MiddlewareConfig Source #

Constructors

AcceptOverride
Autohead
Jsonp
MethodOverride
MethodOverridePost
AddHeaders ![(ByteString, ByteString)]
BasicAuth !String ![(ByteString, ByteString)]	Realm [(username,password)]
Local !Int !ByteString	Status Message

Instances

Instances details

Show MiddlewareConfig Source #
Instance details Defined in Keter.Types.Middleware Methods showsPrec :: Int -> MiddlewareConfig -> ShowS # show :: MiddlewareConfig -> String # showList :: [MiddlewareConfig] -> ShowS #
Generic MiddlewareConfig Source #
Instance details Defined in Keter.Types.Middleware Associated Types type Rep MiddlewareConfig :: Type -> Type # Methods from :: MiddlewareConfig -> Rep MiddlewareConfig x # to :: Rep MiddlewareConfig x -> MiddlewareConfig #
ToJSON MiddlewareConfig Source #
Instance details Defined in Keter.Types.Middleware Methods toJSON :: MiddlewareConfig -> Value # toEncoding :: MiddlewareConfig -> Encoding # toJSONList :: [MiddlewareConfig] -> Value # toEncodingList :: [MiddlewareConfig] -> Encoding #
FromJSON MiddlewareConfig Source #
Instance details Defined in Keter.Types.Middleware Methods parseJSON :: Value -> Parser MiddlewareConfig # parseJSONList :: Value -> Parser [MiddlewareConfig] #
type Rep MiddlewareConfig Source #
Instance details Defined in Keter.Types.Middleware type Rep MiddlewareConfig = D1 ('MetaData "MiddlewareConfig" "Keter.Types.Middleware" "keter-1.9-inplace" 'False) (((C1 ('MetaCons "AcceptOverride" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Autohead" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "Jsonp" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MethodOverride" 'PrefixI 'False) (U1 :: Type -> Type))) :+: ((C1 ('MetaCons "MethodOverridePost" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "AddHeaders" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [(ByteString, ByteString)]))) :+: (C1 ('MetaCons "BasicAuth" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 String) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 [(ByteString, ByteString)])) :+: C1 ('MetaCons "Local" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Int) :: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 ByteString)))))

processMiddleware :: [MiddlewareConfig] -> Middleware Source #

toMiddleware :: MiddlewareConfig -> Middleware Source #

composeMiddleware :: [Middleware] -> Middleware Source #