diff options
| author | aarne <unknown> | 2005-06-06 08:56:28 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-06 08:56:28 +0000 |
| commit | 17c4219691d0df7629b7f8dd9ead956f9ee750b6 (patch) | |
| tree | d6cad8808b7917c53e28cf0ca7c755be5d487e55 /src | |
| parent | 9d6aaadb033251309689e8d250f7e86f8eba880d (diff) | |
qualified cat in gfe
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Compile/MkConcrete.hs | 7 |
1 files 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 |