diff options
| author | aarne <unknown> | 2005-03-15 16:18:51 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-03-15 16:18:51 +0000 |
| commit | c68a3fd63d7f1e263b23642fa640993e1c2cefa1 (patch) | |
| tree | 71f9b7c25f2360b5e533c9ce1580d6cf02a9e945 /src/GF/Compile/Rebuild.hs | |
| parent | b3f5d1f0fee9b768734da71b6218f3e1ffa5be75 (diff) | |
bug fixes in dependency handling
Diffstat (limited to 'src/GF/Compile/Rebuild.hs')
| -rw-r--r-- | src/GF/Compile/Rebuild.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Compile/Rebuild.hs b/src/GF/Compile/Rebuild.hs index b00397eb9..7404ac0bf 100644 --- a/src/GF/Compile/Rebuild.hs +++ b/src/GF/Compile/Rebuild.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/03/08 18:08:58 $ +-- > CVS $Date: 2005/03/15 17:18:51 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.10 $ +-- > CVS $Revision: 1.11 $ -- -- Rebuild a source module from incomplete and its with-instance. ----------------------------------------------------------------------------- @@ -71,6 +71,7 @@ rebuildModule ms mo@(i,mi) = do let ops1 = ops ++ [o | o <- ops0, notElem (openedModule o) infs] ++ [oQualif i i | i <- map snd insts] ---- ++ [oSimple i | i <- map snd insts] ---- + ---- ++ [oSimple ext] ---- to encode dependence --- check if me is incomplete return $ ModMod $ Module mt0 stat' fs me ops1 js ---- (mapTree (qualifInstanceInfo insts) js) -- not needed |