From 33e31231488e34a5c7e249d1ca032b7095f2fd61 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 25 Jul 2007 14:00:48 +0000
Subject: [PATCH] Minor Haddock-related fixes

Fixes a few minor things in the code that were confusing the Haddock parser during "make haddock"
---
 GenerateC.hs | 2 +-
 Parse.hs     | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/GenerateC.hs b/GenerateC.hs
index 8891d37..3d143f1 100644
--- a/GenerateC.hs
+++ b/GenerateC.hs
@@ -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"
diff --git a/Parse.hs b/Parse.hs
index 08d9390..fb5215c 100644
--- a/Parse.hs
+++ b/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)