From c75a0ee9209e82ce3ffcea80ed1fae0eb30aa807 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 4 Nov 2003 15:53:32 +0000
Subject: Some fixes when working on resource grammars.

---
 src/GF/Canon/CMacros.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF')

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)
-- 
cgit v1.2.3