diff options
| author | aarne <unknown> | 2003-11-04 15:53:32 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2003-11-04 15:53:32 +0000 |
| commit | c75a0ee9209e82ce3ffcea80ed1fae0eb30aa807 (patch) | |
| tree | 9f0660f46eb3237518c2d3d68554111616bc1857 | |
| parent | 73484ab90097adbcc91b4c0827db52fd388f662b (diff) | |
Some fixes when working on resource grammars.
| -rw-r--r-- | grammars/resource/english/Paradigms.gf | 2 | ||||
| -rw-r--r-- | src/GF/Canon/CMacros.hs | 1 | ||||
| -rw-r--r-- | src/Today.hs | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/grammars/resource/english/Paradigms.gf b/grammars/resource/english/Paradigms.gf index d2eeca49d..62eadfd0a 100644 --- a/grammars/resource/english/Paradigms.gf +++ b/grammars/resource/english/Paradigms.gf @@ -9,7 +9,7 @@ -- Closed categories (determiners, pronouns, conjunctions) are -- accessed through the resource syntax API, $resource.Abs.gf$. -- --- The main difference with $morpho.Eng.gf$ is that the types +-- The main difference with $MorphoEng.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover -- had the design principle of always having existing forms as string -- arguments of the paradigms, not stems. 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" |