diff options
| -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 |