diff options
author | Simon Hengel <sol@typeful.net> | 2012-01-12 11:54:37 +0100 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2012-02-04 00:50:04 +0100 |
commit | d327e3dfea1dda473c065b0e6a7da2161c9e6668 (patch) | |
tree | 644c8ba2ba8829547971419004571c430b6da5a2 /src/Haddock/Types.hs | |
parent | 7829173d5c619f93edb5075d66e2ed15c4cc73c6 (diff) |
Add DocWarning to Doc
The Xhtml backend has special markup for that, Hoogle and LaTeX reuse
what we have for DocEmphasis.
Diffstat (limited to 'src/Haddock/Types.hs')
-rw-r--r-- | src/Haddock/Types.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index a3a7db15..fe4039a7 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -283,6 +283,7 @@ data Doc id | DocIdentifier id | DocIdentifierUnchecked (ModuleName, OccName) | DocModule String + | DocWarning (Doc id) | DocEmphasis (Doc id) | DocMonospaced (Doc id) | DocUnorderedList [Doc id] @@ -324,6 +325,7 @@ data DocMarkup id a = Markup , markupIdentifier :: id -> a , markupIdentifierUnchecked :: (ModuleName, OccName) -> a , markupModule :: String -> a + , markupWarning :: a -> a , markupEmphasis :: a -> a , markupMonospaced :: a -> a , markupUnorderedList :: [a] -> a |