Provide means of rendering pretty HTML

[bitemyapp]

https://hackage.haskell.org/package/blaze-markup-0.7.0.2/docs/Text-Blaze-Renderer-Pretty.html

[bitemyapp]

Also wow is that being String unfortunate.

[bitemyapp]

low whistle

Pretty bad.

[bitemyapp]

HTML it returns isn't even correct :\

[alpmestan]

Do you get the same issue with this one ?

A PrettyHTML content type could be defined as follows, assuming the rendering function I pointed to doesn't have the problem you've mentionned.

{-# LANGUAGE DeriveDataTypeable    #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings     #-}

import           Data.Typeable                 (Typeable)
import qualified Network.HTTP.Media            as M
import           Servant.API                   (Accept (..), MimeRender (..))
import           Text.Blaze.Html               (Html, ToMarkup, toHtml)
import           Text.Blaze.Html.Renderer.Pretty (renderHtml)

data PrettyHTML deriving Typeable

-- | @text/html;charset=utf-8@
instance Accept PrettyHTML where
    contentType _ = "text" M.// "html" M./: ("charset", "utf-8")

instance OVERLAPPABLE_ ToMarkup a => MimeRender PrettyHTML a where
    mimeRender _ = renderHtml . toHtml

instance OVERLAPPING_ MimeRender PrettyHTML Html where
mimeRender _ = renderHtml

[bitemyapp]

@alpmestan that is the same renderer that's broken, look: https://hackage.haskell.org/package/blaze-html-0.8.1.2/docs/src/Text-Blaze-Html-Renderer-Pretty.html#renderHtml

The method of furnishing pretty HTML (changing type) seems fine to me, but I'm a bit galled that there isn't a working pretty HTML renderer.

[alpmestan]

Oh, it just calls out to the other. Well, if you fix it or find another one, we can put together a PR for a pretty HTML combinator :)