From 20eae7786f420ce02e8043c43c82e31e49c5af72 Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Fri, 13 May 2005 11:40:18 +0000
Subject: "Committed_by_peb"

---
 src/GF/Parsing/MCFG/PInfo.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Parsing/MCFG/PInfo.hs')

diff --git a/src/GF/Parsing/MCFG/PInfo.hs b/src/GF/Parsing/MCFG/PInfo.hs
index 3b2603a20..4fbe3e736 100644
--- a/src/GF/Parsing/MCFG/PInfo.hs
+++ b/src/GF/Parsing/MCFG/PInfo.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/05/09 09:28:46 $ 
+-- > CVS $Date: 2005/05/13 12:40:19 $ 
 -- > CVS $Author: peb $
--- > CVS $Revision: 1.4 $
+-- > CVS $Revision: 1.5 $
 --
 -- MCFG parsing, parser information
 -----------------------------------------------------------------------------
@@ -76,7 +76,7 @@ rangeRestrictPInfo (pinfo{-::MCFPInfo c n l t-}) inp =
 	     , leftcornerTokens = lctokens
 	     , grammarCats = grammarCats pinfo
 	     , rulesByToken = emptyAssoc -- error "MCFG.PInfo.rulesByToken - no range restriction"
-	     , rulesWithoutTokens = [] -- error "MCFG.PInfo.rulesByToken - no range restriction"
+	     , rulesWithoutTokens = [] -- error "MCFG.PInfo.rulesByToken - no range restriction"
 	     , allRules = allrules -- rrRules (allRules pinfo)
 	     }
 
@@ -114,7 +114,7 @@ buildMCFPInfo grammar =
 	  namerules     = accumAssoc id 
 			  [ (name, rule) | rule@(Rule (Abs _ _ name) _) <- allrules ]
 	  topdownrules  = accumAssoc id
-			  [ (cat, rule) | rule@(Rule (Abs cat _ _) _) <- allrules ]
+			  [ (cat, rule) | rule@(Rule (Abs cat _ _) _) <- allrules ]
 	  emptyrules    = [ rule | rule@(Rule (Abs _ [] _) _) <- allrules ]
 	  leftcorncats  = accumAssoc id 
 			  [ (cat, rule) | 
-- 
cgit v1.2.3