Minor Haddock-related fixes

Fixes a few minor things in the code that were confusing the Haddock parser during "make haddock"
This commit is contained in:
Neil Brown 2007-07-25 14:00:48 +00:00
parent c33dff1398
commit 33e3123148
2 changed files with 3 additions and 2 deletions

View File

@ -862,7 +862,7 @@ abbrevVariable am (A.Record _) v
abbrevVariable am t v
= (genVariableAM v am, noSize)
-- | Generate the size part of a RETYPES/RESHAPES abbrevation of a variable.
-- | Generate the size part of a RETYPES\/RESHAPES abbrevation of a variable.
genRetypeSizes :: Meta -> A.AbbrevMode -> A.Type -> A.Name -> A.Type -> A.Variable -> CGen ()
genRetypeSizes m am destT destN srcT srcV
= do size <- makeNonce "retype_size"

View File

@ -1440,7 +1440,7 @@ retypesAbbrev
return $ A.Specification m n $ A.RetypesExpr m A.ValAbbrev s e
<?> "RETYPES/RESHAPES abbreviation"
-- | Check that a RETYPES/RESHAPES is safe.
-- | Check that a RETYPES\/RESHAPES is safe.
checkRetypes :: A.Type -> A.Type -> OccParser ()
-- Retyping channels is always "safe".
checkRetypes (A.Chan _) (A.Chan _) = return ()
@ -2051,6 +2051,7 @@ includeFile file
return $ f p
unknownPP :: OccParser A.Process
unknownPP
= do m <- md
char '#'
rest <- manyTill anyChar (try eol)