X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=3ff30d971a60c970f16b629303e21c5732b2dcb3;hp=1e85ac43a5b6d10e34e737f92375a61c6cb7ae55;hb=872a4a0fd2a99ea96bee36f5398e87002659e014;hpb=3eeeb57d95c6a218ce457f85e1f5b3511057101f

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 1e85ac4..3ff30d9 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -482,7 +482,9 @@ addVersionInfo (Just old_iface@(ModIface { mi_mod_vers  = old_mod_vers,
 
     -------------------
     -- Adding version info
-    new_version     = bumpVersion old_mod_vers
+    new_version = bumpVersion old_mod_vers	-- Start from the old module version, not from zero
+						-- so that if you remove f, and then add it again,
+						-- you don't thereby reduce f's version number
     add_vers decl | occ `elemOccSet` changed_occs = new_version
 		  | otherwise = expectJust "add_vers" (old_decl_vers occ)
 				-- If it's unchanged, there jolly well