diff options
| author | krasimir <krasimir@chalmers.se> | 2009-08-27 15:57:38 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-08-27 15:57:38 +0000 |
| commit | b6abe5f8f5ae85220ba208aa0f99932f5f8e321c (patch) | |
| tree | e32ab59250895456777f10249dd27fb074fb37da /src/GF/Compile/Coding.hs | |
| parent | 7e395c261cc8c0bf2227732c043ad7949e9f2a7a (diff) | |
if there is oper patt = #(...) then it also should be decoded to Unicode
Diffstat (limited to 'src/GF/Compile/Coding.hs')
| -rw-r--r-- | src/GF/Compile/Coding.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |