diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-23 10:09:34 +0100 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-23 10:09:34 +0100 |
| commit | 5d41d4396425fc5c2e9b90d3e1e0baa5dc1ac224 (patch) | |
| tree | df13708dded1d48172cb51feb05fb41e74565ac8 /src/Haddock/Doc.hs | |
| parent | 92e50dba7b099f24cc357de71aaa7fe06bd061b1 (diff) | |
Move sources under haddock-api/src
Diffstat (limited to 'src/Haddock/Doc.hs')
| -rw-r--r-- | src/Haddock/Doc.hs | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/Haddock/Doc.hs b/src/Haddock/Doc.hs deleted file mode 100644 index 91ad709f..00000000 --- a/src/Haddock/Doc.hs +++ /dev/null @@ -1,31 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans #-} -module Haddock.Doc ( module Documentation.Haddock.Doc - , docCodeBlock - , combineDocumentation - ) where - -import Data.Maybe -import Documentation.Haddock.Doc -import Haddock.Types - -combineDocumentation :: Documentation name -> Maybe (Doc name) -combineDocumentation (Documentation Nothing Nothing) = Nothing -combineDocumentation (Documentation mDoc mWarning) = - Just (fromMaybe DocEmpty mWarning `docAppend` fromMaybe DocEmpty mDoc) - --- Drop trailing whitespace from @..@ code blocks. Otherwise this: --- --- -- @ --- -- foo --- -- @ --- --- turns into (DocCodeBlock "\nfoo\n ") which when rendered in HTML --- gives an extra vertical space after the code block. The single space --- on the final line seems to trigger the extra vertical space. --- -docCodeBlock :: DocH mod id -> DocH mod id -docCodeBlock (DocString s) - = DocString (reverse $ dropWhile (`elem` " \t") $ reverse s) -docCodeBlock (DocAppend l r) - = DocAppend l (docCodeBlock r) -docCodeBlock d = d |