From 3f9b4e7855cf4594708a9fbad194c89540d2cf1e Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 31 Mar 2004 12:30:34 +0000
Subject: Added support for cf and ebnf formats

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

(limited to 'src/GF/CF/PPrCF.hs')

diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs
index 6712c45f3..a797daace 100644
--- a/src/GF/CF/PPrCF.hs
+++ b/src/GF/CF/PPrCF.hs
@@ -52,7 +52,7 @@ getCFRule :: String -> String -> Err CFRule
 getCFRule mo s = getcf (wrds s) where
   getcf ww | length ww > 2 && ww !! 2 `elem` ["->", "::="] = 
        Ok (string2CFFun mo (init fun), (string2CFCat mo cat, map mkIt its)) where
-    fun : cat : _ : its = words s
+    fun : cat : _ : its = ww
     mkIt ('"':w@(_:_)) = atomCFTerm (string2CFTok (init w))
     mkIt w = CFNonterm (string2CFCat mo w)
   getcf _ = Bad (" invalid rule:" +++ s)
-- 
cgit v1.2.3