diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-31 17:10:31 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-31 17:10:31 +0000 |
| commit | e59bad1f19358a11a1f1d61d00807ffcae0ab8c4 (patch) | |
| tree | 8b1044c4123b8280b3601df671b5a846a1ad4e73 /src/GF/CF | |
| parent | 755a3d4ccce5cdf0931f1ceec81c2726fe0a210a (diff) | |
math API; lock field warnings
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/CanonToCF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/CF/CanonToCF.hs b/src/GF/CF/CanonToCF.hs index 882860b2c..80ce2e79d 100644 --- a/src/GF/CF/CanonToCF.hs +++ b/src/GF/CF/CanonToCF.hs @@ -128,6 +128,8 @@ term2CFItems m t = errIn "forming cf items" $ case t of its <- mapM t2c ts tryMkCFTerm (concat its) + P (S c _) _ -> t2c c --- w-around for bug in Compute? AR 31/1/2006 + P arg s -> extrR arg s K (KS s) -> return [[PTerm (RegAlts [s]) | not (null s)]] |