diff options
Diffstat (limited to 'src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs')
| -rw-r--r-- | src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs b/src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs index 58a39b7f4..1c107356b 100644 --- a/src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs +++ b/src/GF/OldParsing/ConvertSimpleToMCFG/Coercions.hs @@ -4,9 +4,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/04/11 13:52:56 $ +-- > CVS $Date: 2005/04/16 05:40:50 $ -- > CVS $Author: peb $ --- > CVS $Revision: 1.1 $ +-- > CVS $Revision: 1.2 $ -- -- Adding coercion functions to a MCFG if necessary. ----------------------------------------------------------------------------- @@ -55,15 +55,15 @@ combineCoercions allHeads'@(heads:allHeads) allArgs'@(args:allArgs) makeCoercion heads args = [ Rule arg [head] lins coercionName | - (head@({-MCFCat-}(_, headCns), lbls) <- heads, + head@((_, headCns), lbls) <- heads, let lins = [ Lin lbl [Cat (head, lbl, 0)] | lbl <- lbls ], - arg@({-MCFCat-} (_, argCns) <- args, + arg@(_, argCns) <- args, argCns `subset` headCns ] coercionName = Ident.IW -mainCat ({-MCFCat-} (c, _) = c +mainCat (c, _) = c sameCat mc1 mc2 = mainCat mc1 == mainCat mc2 |