From c5ac722916eaff25b6def702f6dabc786a76459a Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 27 Aug 2009 15:57:38 +0000 Subject: [PATCH] if there is oper patt = #(...) then it also should be decoded to Unicode --- src/GF/Compile/Coding.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/GF/Compile/Coding.hs b/src/GF/Compile/Coding.hs index c871f16a3..49538bd35 100644 --- a/src/GF/Compile/Coding.hs +++ b/src/GF/Compile/Coding.hs @@ -29,6 +29,7 @@ codeTerm :: (String -> String) -> Term -> Term codeTerm co t = case t of K s -> K (co s) T ty cs -> T ty [(codp p,codeTerm co v) | (p,v) <- cs] + EPatt p -> EPatt (codp p) _ -> composSafeOp (codeTerm co) t where codp p = case p of --- really: composOpPatt