wai-middleware-content-type 0.0.3.3 → 0.0.4
raw patch · 2 files changed
+25/−25 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Network.Wai.Middleware.ContentType.Pandoc: lucid :: MonadIO m => Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidHeaders :: MonadIO m => RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidHeadersWith :: MonadIO m => (Response -> Response) -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidOnly :: Pandoc -> Response
- Network.Wai.Middleware.ContentType.Pandoc: lucidOnlyHeaders :: RequestHeaders -> Pandoc -> Response
- Network.Wai.Middleware.ContentType.Pandoc: lucidOnlyStatus :: Status -> Pandoc -> Response
- Network.Wai.Middleware.ContentType.Pandoc: lucidOnlyStatusHeaders :: Status -> RequestHeaders -> Pandoc -> Response
- Network.Wai.Middleware.ContentType.Pandoc: lucidStatus :: MonadIO m => Status -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidStatusHeaders :: MonadIO m => Status -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidStatusHeadersWith :: MonadIO m => (Response -> Response) -> Status -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidStatusWith :: MonadIO m => (Response -> Response) -> Status -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
- Network.Wai.Middleware.ContentType.Pandoc: lucidWith :: MonadIO m => (Response -> Response) -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdown :: MonadIO m => Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownHeaders :: MonadIO m => RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownHeadersWith :: MonadIO m => (Response -> Response) -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownOnly :: Pandoc -> Response
+ Network.Wai.Middleware.ContentType.Pandoc: markdownOnlyHeaders :: RequestHeaders -> Pandoc -> Response
+ Network.Wai.Middleware.ContentType.Pandoc: markdownOnlyStatus :: Status -> Pandoc -> Response
+ Network.Wai.Middleware.ContentType.Pandoc: markdownOnlyStatusHeaders :: Status -> RequestHeaders -> Pandoc -> Response
+ Network.Wai.Middleware.ContentType.Pandoc: markdownStatus :: MonadIO m => Status -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownStatusHeaders :: MonadIO m => Status -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownStatusHeadersWith :: MonadIO m => (Response -> Response) -> Status -> RequestHeaders -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownStatusWith :: MonadIO m => (Response -> Response) -> Status -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
+ Network.Wai.Middleware.ContentType.Pandoc: markdownWith :: MonadIO m => (Response -> Response) -> Pandoc -> FileExtListenerT (MiddlewareT m) m ()
Files
src/Network/Wai/Middleware/ContentType/Pandoc.hs view
@@ -15,56 +15,56 @@ -- | Uses the @Html@ key in the map, and @"text/html"@ as the content type.-lucid :: MonadIO m => P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucid = lucidStatusHeaders status200 [("Content-Type", "text/markdown")]+markdown :: MonadIO m => P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()+markdown = markdownStatusHeaders status200 [("Content-Type", "text/markdown")] -lucidWith :: MonadIO m =>+markdownWith :: MonadIO m => (Response -> Response) -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidWith f = lucidStatusHeadersWith f status200 [("Content-Type", "text/markdown")]+markdownWith f = markdownStatusHeadersWith f status200 [("Content-Type", "text/markdown")] -lucidStatus :: MonadIO m =>+markdownStatus :: MonadIO m => Status -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidStatus s = lucidStatusHeaders s [("Content-Type", "text/markdown")]+markdownStatus s = markdownStatusHeaders s [("Content-Type", "text/markdown")] -lucidStatusWith :: MonadIO m =>+markdownStatusWith :: MonadIO m => (Response -> Response) -> Status -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidStatusWith f s = lucidStatusHeadersWith f s [("Content-Type", "text/markdown")]+markdownStatusWith f s = markdownStatusHeadersWith f s [("Content-Type", "text/markdown")] -lucidHeaders :: MonadIO m =>+markdownHeaders :: MonadIO m => RequestHeaders -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidHeaders = lucidStatusHeaders status200+markdownHeaders = markdownStatusHeaders status200 -lucidHeadersWith :: MonadIO m =>+markdownHeadersWith :: MonadIO m => (Response -> Response) -> RequestHeaders -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidHeadersWith f = lucidStatusHeadersWith f status200+markdownHeadersWith f = markdownStatusHeadersWith f status200 -lucidStatusHeaders :: MonadIO m =>+markdownStatusHeaders :: MonadIO m => Status -> RequestHeaders -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidStatusHeaders = lucidStatusHeadersWith id+markdownStatusHeaders = markdownStatusHeadersWith id -lucidStatusHeadersWith :: MonadIO m =>+markdownStatusHeadersWith :: MonadIO m => (Response -> Response) -> Status -> RequestHeaders -> P.Pandoc -> FileExtListenerT (MiddlewareT m) m ()-lucidStatusHeadersWith f s hs i = do+markdownStatusHeadersWith f s hs i = do bytestringStatusWith f Html s hs . LT.encodeUtf8 . LT.pack $ P.writeMarkdown P.def i -lucidOnly :: P.Pandoc -> Response-lucidOnly = lucidOnlyStatusHeaders status200 [("Content-Type", "text/markdown")]+markdownOnly :: P.Pandoc -> Response+markdownOnly = markdownOnlyStatusHeaders status200 [("Content-Type", "text/markdown")] -lucidOnlyStatus :: Status -> P.Pandoc -> Response-lucidOnlyStatus s = lucidOnlyStatusHeaders s [("Content-Type", "text/markdown")]+markdownOnlyStatus :: Status -> P.Pandoc -> Response+markdownOnlyStatus s = markdownOnlyStatusHeaders s [("Content-Type", "text/markdown")] -lucidOnlyHeaders :: RequestHeaders -> P.Pandoc -> Response-lucidOnlyHeaders = lucidOnlyStatusHeaders status200+markdownOnlyHeaders :: RequestHeaders -> P.Pandoc -> Response+markdownOnlyHeaders = markdownOnlyStatusHeaders status200 -lucidOnlyStatusHeaders :: Status -> RequestHeaders -> P.Pandoc -> Response-lucidOnlyStatusHeaders s hs i = bytestringOnlyStatus s hs . LT.encodeUtf8 . LT.pack $ P.writeMarkdown P.def i+markdownOnlyStatusHeaders :: Status -> RequestHeaders -> P.Pandoc -> Response+markdownOnlyStatusHeaders s hs i = bytestringOnlyStatus s hs . LT.encodeUtf8 . LT.pack $ P.writeMarkdown P.def i
wai-middleware-content-type.cabal view
@@ -1,5 +1,5 @@ Name: wai-middleware-content-type-Version: 0.0.3.3+Version: 0.0.4 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: BSD3