From 9f867c4922cccb6e61b273a55103e2afaeac4bde Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 11 Dec 2005 17:48:55 +0000
Subject: float parsing fixed

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

(limited to 'src/GF/UseGrammar')

diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs
index 7e052426d..9d76442ae 100644
--- a/src/GF/UseGrammar/Linear.hs
+++ b/src/GF/UseGrammar/Linear.hs
@@ -259,7 +259,7 @@ linearizeToStrss gr mk e = do
 allLinsOfFun :: CanonGrammar -> CIdent -> Err [[(Label,[([Patt],Term)])]]
 allLinsOfFun gr f = do
   t <- lookupLin gr f 
-  allLinValues t
+  allAllLinValues t --- all fields, not only s. 11/12/2005
 
 
 -- | returns printname if one exists; otherwise linearizes with metas
-- 
cgit v1.2.3