diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-31 16:30:36 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-31 16:30:36 +0000 |
| commit | bd7d0c7c5e62b1c008be9ce0d85e8d0592fec0eb (patch) | |
| tree | 5ba9b80e706791ed37e1e000b2bf6ea8c1e802bc /src-3.0/GF/Compile/Rebuild.hs | |
| parent | 9229c157642c3503d365f42fe5ecac414958ab9b (diff) | |
printing line numbers in rename and check-grammar error messages
Diffstat (limited to 'src-3.0/GF/Compile/Rebuild.hs')
| -rw-r--r-- | src-3.0/GF/Compile/Rebuild.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src-3.0/GF/Compile/Rebuild.hs b/src-3.0/GF/Compile/Rebuild.hs index 6dd6cf204..ec9076e1c 100644 --- a/src-3.0/GF/Compile/Rebuild.hs +++ b/src-3.0/GF/Compile/Rebuild.hs @@ -56,7 +56,10 @@ rebuildModule ms mo@(i,mi) = do m0s <- mapM (lookupModMod gr) j0s let notInM0 c _ = all (not . isInBinTree c . jments) m0s let js2 = filterBinTree notInM0 js' - return $ replaceJudgements m js2 + return $ (replaceJudgements m js2) + {positions = + buildTree (tree2list (positions m1) ++ + tree2list (positions m))} return $ ModMod m' _ -> return mi |