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 +
 src/Today.hs            | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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)
diff --git a/src/Today.hs b/src/Today.hs
index b9c8c4106..3e96c4560 100644
--- a/src/Today.hs
+++ b/src/Today.hs
@@ -1 +1 @@
-module Today where today = "Tue Nov  4 09:25:56 CET 2003"
+module Today where today = "Tue Nov  4 13:55:38 CET 2003"
-- 
cgit v1.2.3