diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-23 22:20:00 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-23 22:20:00 +0000 |
| commit | 750ef2ca30b7e075d0a0b1404ee2dc741b3f2166 (patch) | |
| tree | 9ab90a622422203e627e1383a076b0e87f3ca117 /src/GF/Compile/Rebuild.hs | |
| parent | 00e7c3225e0399917e3a602a43b26ec238b870bc (diff) | |
bug fix in with-modules and gr checker; factoring out cats to Common
Diffstat (limited to 'src/GF/Compile/Rebuild.hs')
| -rw-r--r-- | src/GF/Compile/Rebuild.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Compile/Rebuild.hs b/src/GF/Compile/Rebuild.hs index fd7d4cd88..452a485c8 100644 --- a/src/GF/Compile/Rebuild.hs +++ b/src/GF/Compile/Rebuild.hs @@ -72,8 +72,8 @@ rebuildModule ms mo@(i,mi) = do ++ [oQualif i i | i <- map snd insts] ---- ++ [oSimple i | i <- map snd insts] ---- ---- ++ [oSimple ext] ---- to encode dependence - --- check if me is incomplete; --- why inherit all forced by syntax - return $ ModMod $ Module mt0 stat' fs (map inheritAll me) ops1 js + --- check if me is incomplete + return $ ModMod $ Module mt0 stat' fs me ops1 js ---- (mapTree (qualifInstanceInfo insts) js) -- not needed _ -> return mi |