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:
parent
c33dff1398
commit
33e3123148
|
@ -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"
|
||||
|
|
3
Parse.hs
3
Parse.hs
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user