diff options
| author | aarne <unknown> | 2005-02-11 11:06:47 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-02-11 11:06:47 +0000 |
| commit | b90332065c022332eb7a8d0505ef737e925914a1 (patch) | |
| tree | 595ed14e589205de2ca1286f302b4aa17c0ec075 | |
| parent | 012d2dd0c4cff6cb4e9975de49cc5db4c337406e (diff) | |
bugfix in make of incomplete
| -rw-r--r-- | grammars/video/User/specUserSwe.gf | 2 | ||||
| -rw-r--r-- | src/GF/Infra/ReadFiles.hs | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/grammars/video/User/specUserSwe.gf b/grammars/video/User/specUserSwe.gf index cc3018c0a..b5ac0aa86 100644 --- a/grammars/video/User/specUserSwe.gf +++ b/grammars/video/User/specUserSwe.gf @@ -4,6 +4,8 @@ concrete specUserSwe of specUser = specificSwe, genUserSwe ** { +flags startcat=DMove ; + lin --- Answers in request list vcr_add_rec_job_args4 chts wdts stts etts = {s = diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs index 380c0cfb5..8f6b5c971 100644 --- a/src/GF/Infra/ReadFiles.hs +++ b/src/GF/Infra/ReadFiles.hs @@ -116,7 +116,8 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where let us = uses f in if not (all noComp us) then fp else - if (elem (typ f) [MTyIncomplete, MTyIncResource] || + if (elem (typ f) [] ---- MTyIncomplete, MTyIncResource] + || (not (null us) && all isAux us)) then (f,(p,CSDont)) else fp |