WikiMusic.SSR.Servant.Utilities

Documentation

fromForm :: MultipartData tag -> Text -> Text -> Text

maybeFromForm :: MultipartData tag -> Text -> Maybe Text

setCookieRoute :: MonadError ServerError m => CookieConfig -> Text -> Map Text Text -> m a

mkCookieData :: CookieConfig -> Text -> Text

mkCookieMap :: Maybe Text -> Map Text Text

decodeToken :: Text -> Text

encodeToken :: Text -> Text

vvFromCookies :: Maybe Text -> ViewVars

errorRoute :: (MonadIO m, MonadError ServerError m) => Env -> Maybe Text -> Maybe Text -> Maybe Int -> Maybe Text -> m Html

data ServerResponse

Constructors

ServerResponse

Fields

• code :: Int
• cause :: Maybe Text
• body :: Maybe Text
• headers :: [(Text, Text)]

Instances

Show ServerResponse

Defined in WikiMusic.SSR.Servant.Utilities

Methods

showsPrec :: Int -> ServerResponse -> ShowS

show :: ServerResponse -> String

showList :: [ServerResponse] -> ShowS

Eq ServerResponse

Defined in WikiMusic.SSR.Servant.Utilities

Methods

(==) :: ServerResponse -> ServerResponse -> Bool

(/=) :: ServerResponse -> ServerResponse -> Bool

(k ~ A_Lens, a ~ Maybe Text, b ~ Maybe Text) => LabelOptic "body" k ServerResponse ServerResponse a b

Defined in WikiMusic.SSR.Servant.Utilities

Methods

labelOptic :: Optic k NoIx ServerResponse ServerResponse a b

(k ~ A_Lens, a ~ Maybe Text, b ~ Maybe Text) => LabelOptic "cause" k ServerResponse ServerResponse a b

Defined in WikiMusic.SSR.Servant.Utilities

Methods

labelOptic :: Optic k NoIx ServerResponse ServerResponse a b

(k ~ A_Lens, a ~ Int, b ~ Int) => LabelOptic "code" k ServerResponse ServerResponse a b

Defined in WikiMusic.SSR.Servant.Utilities

Methods

labelOptic :: Optic k NoIx ServerResponse ServerResponse a b

(k ~ A_Lens, a ~ [(Text, Text)], b ~ [(Text, Text)]) => LabelOptic "headers" k ServerResponse ServerResponse a b

Defined in WikiMusic.SSR.Servant.Utilities

Methods

labelOptic :: Optic k NoIx ServerResponse ServerResponse a b

serverResponse :: ServerResponse

withLocation :: (IsString a, IsString b) => Text -> (a, b)

respondWithHttp :: (MonadIO m, MonadError ServerError m) => ServerResponse -> m a

httpFound :: ServerResponse

callErrorPage :: (MonadIO m, MonadError ServerError m) => Text -> m a

respondWithViewOrErr :: (MonadIO m, MonadError ServerError m) => Either Text t -> (t -> IO a) -> m a

respondWithViewOrErr' :: (MonadIO m, MonadError ServerError m) => Either Text (Maybe t) -> (t -> IO a) -> m a