diff options
| author | David Waern <david.waern@gmail.com> | 2007-11-14 20:40:50 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2007-11-14 20:40:50 +0000 |
| commit | 1168a37f6bfad3d7025ecb21b9917799937936f3 (patch) | |
| tree | b62570218794438bb2d633efb13c29a93a7924a8 /compiler/parser/HaddockUtils.hs | |
| parent | 536eaecd1071cfd25e0384b10ed9b72f98b21f46 (diff) | |
| download | haskell-1168a37f6bfad3d7025ecb21b9917799937936f3.tar.gz | |
Avoid making Either String an instance of Monad in the Haddock parser
Diffstat (limited to 'compiler/parser/HaddockUtils.hs')
| -rw-r--r-- | compiler/parser/HaddockUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/HaddockUtils.hs b/compiler/parser/HaddockUtils.hs index 124d542728..abc31e1a9d 100644 --- a/compiler/parser/HaddockUtils.hs +++ b/compiler/parser/HaddockUtils.hs @@ -47,8 +47,8 @@ parseModuleHeader str0 = Nothing -> Right Nothing Just description -> case parseHaddockString . tokenise $ description of - Left mess -> Left ("Cannot parse Description: " ++ mess) - Right doc -> Right (Just doc) + MyLeft mess -> Left ("Cannot parse Description: " ++ mess) + MyRight doc -> Right (Just doc) in case description1 of Left mess -> Left mess |