Some fixes when working on resource grammars.

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)

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"