very difficult to list pragmas in haddock code blocks

[JeremyShaw]

I would like to embed this as a code block in haddock:

> {-# LANGUAGE QuasiQuotes #-}
> import Data.Char        (toUpper)
> import HSX.QQ           (hsx)
> import HSX.XMLGenerator
>
> html :: (XMLGenerator m) => XMLGenT m (XMLType m)
> html = [hsx| <p><% map toUpper "hello, world!"  %></p> |]

But, the LANGUAGE pragma gets stripped out. I can do this inside the normal part of the haddock comment:

{-\# LANGUAGE QuasiQuotes? \#-}

And it renders as desired. However, if I put that inside the code block, it does not get stripped out, but it also does not get unescaped. So, it shows up exactly like that.

As far as I can tell, there is no way to actually show the pragma in the code block.

[SimonHengel]

That's weird, it seems to me that this only happens if you use {- ... -}-style comments.

I think the following can be used to work around this (for now).

-- |
-- > {-# LANGUAGE QuasiQuotes #-}
-- > import Data.Char        (toUpper)
-- > import HSX.QQ           (hsx)
-- > import HSX.XMLGenerator
-- >
-- > html :: (XMLGenerator m) => XMLGenT m (XMLType m)
-- > html = [hsx| <p><% map toUpper "hello, world!"  %></p> |]

[anonymous]

Milestone 2.10.0 deleted