diff options
| author | peb <unknown> | 2005-06-23 08:43:40 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-06-23 08:43:40 +0000 |
| commit | 5438bcfc9a44454fbdfd55961af31f8ef4a231a5 (patch) | |
| tree | 62c38e57c4ce357512a671e55f396adba57cdcfc /src/GF/UseGrammar | |
| parent | 1f193ff830283f9630b216202bfb72acec9e7714 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Linear.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index 794db670c..4df459ec6 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/21 16:23:48 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.15 $ +-- > CVS $Date: 2005/06/23 09:43:40 $ +-- > CVS $Author: peb $ +-- > CVS $Revision: 1.16 $ -- -- Linearization for canonical GF. AR 7\/6\/2003 ----------------------------------------------------------------------------- @@ -104,7 +104,7 @@ expandLinTables gr t = case t of ts' <- mapM (comp . S t') $ vs return $ T ty [Cas [p] t | (p,t) <- zip ps ts'] FV ts -> liftM FV $ mapM exp ts - _ -> return t + _ -> composOp exp t where alls = allParamValues gr exp = expandLinTables gr |