Magicbane.Util

Various useful functions.

Documentation

mergeVal :: Value -> Value -> Value

Merges two JSON objects recursively. When the values are not objects, just returns the left one.

writeForm :: (ConvertibleStrings α Text, ConvertibleStrings β Text, ConvertibleStrings ByteString γ) => [(α, β)] -> γ

Encodes key-value data as application/x-www-form-urlencoded.

readForm :: (ConvertibleStrings Text α, ConvertibleStrings Text β, ConvertibleStrings γ ByteString) => γ -> Maybe [(α, β)]

Decodes key-value data from application/x-www-form-urlencoded.

formList :: Form -> [(Text, Text)]

Reads a Servant incoming form as a list of key-value pairs (for use in FromForm instances).

formToObject :: [(Text, Text)] -> Value

Converts a flat key-value form with keys in typical nesting syntax (e.g. "one[two][three]") to an Aeson Value with nesting (for use in FromForm instances).

formKey :: Parser [Text]

parseUri :: ConvertibleStrings α String => α -> URI

Parses any string into a URI.

slugify :: Text -> Text

Prepares text for inclusion in a URL.

>>> :set -XOverloadedStrings
>>> slugify "Hello & World!"
"hello-and-world"

errText :: ServantErr -> ByteString -> ServantErr

Creates a simple text/plain ServantErr.

throwErrText :: MonadThrow μ => ServantErr -> ByteString -> μ α

Creates and throws a simple text/plain ServantErr.