diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-06-03 11:51:08 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-06-03 11:51:08 +0000 |
| commit | c5550bd482d7f81b8aa2648dffdcc72705457f1d (patch) | |
| tree | 9be84aa34f35e93255189cfa5339a2ea04b48549 /src/GF/Infra/ReadFiles.hs | |
| parent | f24ec8b8c2a25f62b47b74841c1fb6bd6af47c42 (diff) | |
check circularities in ln
Diffstat (limited to 'src/GF/Infra/ReadFiles.hs')
| -rw-r--r-- | src/GF/Infra/ReadFiles.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs index fcd7093a5..e1e2e06d8 100644 --- a/src/GF/Infra/ReadFiles.hs +++ b/src/GF/Infra/ReadFiles.hs @@ -167,7 +167,7 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where Just ms <- [lookup m allDeps], elem f ms]) || oElem retainOpers opts) -> if elem t [MTyResource,MTyIncResource] - then (f,(path,CSRes)) else + then (f,(path,CSRes)) else if t == MTyIncomplete then (f,(path,CSComp)) else x |