diff options
| author | aarne <unknown> | 2004-09-23 14:41:42 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-23 14:41:42 +0000 |
| commit | 2c60a2d82a0d7b90924e7dbbcacf36afb8549d17 (patch) | |
| tree | 0a04734e741c294cb9f58cfdcafa2ff2b55894dd /src/GF/Canon/CMacros.hs | |
| parent | d5b4230d6dbee8c03eedf8d181dfa2badf1a954b (diff) | |
Ints n
Diffstat (limited to 'src/GF/Canon/CMacros.hs')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index 4643b1494..7390a3af9 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -77,6 +77,7 @@ term2patt trm = case trm of aa' <- mapM term2patt aa return (PR (map (uncurry PAss) (zip ll aa'))) LI x -> return $ PV x + EInt i -> return $ PI i _ -> prtBad "no pattern corresponds to term" trm patt2term :: Patt -> Term @@ -85,6 +86,7 @@ patt2term p = case p of PV x -> LI x PW -> anyTerm ---- PR pas -> R [ Ass lbl (patt2term q) | PAss lbl q <- pas ] + PI i -> EInt i anyTerm :: Term anyTerm = LI (A.identC "_") --- should not happen |