implemented pattern macros

2021-09-29 17:38:53 +02:00
parent 6efb878c43
commit 0229329d7c
14 changed files with 71 additions and 47 deletions
--- a/src/compiler/GF/Compile/GrammarToCanonical.hs
+++ b/src/compiler/GF/Compile/GrammarToCanonical.hs
@@ -242,7 +242,7 @@ convert' gr vs = ppT
        pre (K s) = [s]
        pre Empty = [""]  -- Empty == K ""
        pre (Strs ts) = concatMap pre ts
-        pre (EPatt p) = pat p
+        pre (EPatt _ _ p) = pat p
        pre t = error $ "convert' alts pre: " ++ show t

        pat (PString s) = [s]