diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 1 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
2 files changed, 2 insertions, 1 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) 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" |