From 2433403b6247022ac56133ca935307868fcef6b9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 24 Mar 2004 15:31:38 +0000
Subject: Making cf2gf to work...

---
 src/GF/CF/PPrCF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/CF')

diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs
index 91ab240ea..6712c45f3 100644
--- a/src/GF/CF/PPrCF.hs
+++ b/src/GF/CF/PPrCF.hs
@@ -55,7 +55,7 @@ getCFRule mo s = getcf (wrds s) where
     fun : cat : _ : its = words s
     mkIt ('"':w@(_:_)) = atomCFTerm (string2CFTok (init w))
     mkIt w = CFNonterm (string2CFCat mo w)
-  getcf _ = Bad "invalid rule"
+  getcf _ = Bad (" invalid rule:" +++ s)
   wrds = takeWhile (/= ";") . words -- to permit semicolon in the end
 
 pCF :: String -> String -> Err CF
-- 
cgit v1.2.3