suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor Haddock-related fixes

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GenerateC.hs
View File

@ -862,7 +862,7 @@ abbrevVariable am (A.Record _) v
abbrevVariable am t v abbrevVariable am t v
= (genVariableAM v am, noSize) = (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 :: Meta -> A.AbbrevMode -> A.Type -> A.Name -> A.Type -> A.Variable -> CGen ()
genRetypeSizes m am destT destN srcT srcV genRetypeSizes m am destT destN srcT srcV
= do size <- makeNonce "retype_size" = do size <- makeNonce "retype_size"

3
Parse.hs
View File

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