From 536dd517f2a78c9f7aeec5ac176c0ef8d137bad3 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 6 Jun 2005 08:56:28 +0000
Subject: [PATCH] qualified cat in gfe

---
 src/GF/Compile/MkConcrete.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/GF/Compile/MkConcrete.hs b/src/GF/Compile/MkConcrete.hs
index 841e88ccc..ee01b2232 100644
--- a/src/GF/Compile/MkConcrete.hs
+++ b/src/GF/Compile/MkConcrete.hs
@@ -106,9 +106,10 @@ mkCncLine parser morpho (Right line) = (line,[])
 mkCncLine parser morpho (Left line) = mkLinRule (words line) where
   mkLinRule s = 
     let
-       (pre,str)    = span (/= "in") s
-       ([cat],rest) = splitAt 1 $ tail str
-       (lin,subst)  = span (/= '"') $ tail $ unwords rest
+       (pre,str)     = span (/= "in") s
+       ([mcat],rest) = splitAt 1 $ tail str
+       (lin,subst)   = span (/= '"') $ tail $ unwords rest
+       cat = reverse $ takeWhile (/= '.') $ reverse mcat
        substs = doSubst (init (tail subst))
        def
         | last pre /= "=" = line  -- ordinary lin rule