diff options
| author | David Waern <david.waern@gmail.com> | 2009-11-28 20:15:30 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-11-28 20:15:30 +0000 |
| commit | fba37778cd3eb564c83f1a35e922b8a0a9f111ea (patch) | |
| tree | d8e94dc594415b2b63a268a16c72a9acef917529 /src/Haddock/Interface/ParseModuleHeader.hs | |
| parent | a5138aa6b3da207b78f2624f0fb41b0de6e8f02a (diff) | |
Rename HsDoc back into Doc
Diffstat (limited to 'src/Haddock/Interface/ParseModuleHeader.hs')
| -rw-r--r-- | src/Haddock/Interface/ParseModuleHeader.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Interface/ParseModuleHeader.hs b/src/Haddock/Interface/ParseModuleHeader.hs index eb563656..e74a0aef 100644 --- a/src/Haddock/Interface/ParseModuleHeader.hs +++ b/src/Haddock/Interface/ParseModuleHeader.hs @@ -26,7 +26,7 @@ import Data.Char -- NB. The headers must be given in the order Module, Description, -- Copyright, License, Maintainer, Stability, Portability, except that -- any or all may be omitted. -parseModuleHeader :: String -> Either String (HaddockModInfo RdrName, HsDoc RdrName) +parseModuleHeader :: String -> Either String (HaddockModInfo RdrName, Doc RdrName) parseModuleHeader str0 = let getKey :: String -> String -> (Maybe String,String) @@ -43,7 +43,7 @@ parseModuleHeader str0 = (stabilityOpt,str7) = getKey "Stability" str6 (portabilityOpt,str8) = getKey "Portability" str7 - description1 :: Either String (Maybe (HsDoc RdrName)) + description1 :: Either String (Maybe (Doc RdrName)) description1 = case descriptionOpt of Nothing -> Right Nothing Just description -> case parseHaddockString . tokenise $ description of |