diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Canon/CMacros.hs b/src/GF/Canon/CMacros.hs index e782d977a..17433e48b 100644 --- a/src/GF/Canon/CMacros.hs +++ b/src/GF/Canon/CMacros.hs @@ -57,6 +57,7 @@ markSubterm :: (String,String) -> Term -> Term markSubterm (beg, end) t = case t of R rs -> R $ map markField rs T ty cs -> T ty [Cas p (mark v) | Cas p v <- cs] + FV ts -> FV $ map mark ts _ -> foldr1 C [tK beg, t, tK end] -- t : Str guaranteed? where mark = markSubterm (beg, end) |