[project @ 2000-11-01 17:15:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / BasicTypes.lhs

diff --git a/ghc/compiler/basicTypes/BasicTypes.lhs b/ghc/compiler/basicTypes/BasicTypes.lhs
index 16ab432..820a3b9 100644 (file)
--- a/ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/ghc/compiler/basicTypes/BasicTypes.lhs
@@ -86,7 +86,7 @@ bogusVersion = error "bogusVersion"
 bumpVersion :: Bool -> Version -> Version 
 -- Bump if the predicate (typically equality between old and new) is false
 bumpVersion False v = v+1
-bumpVersion True  v = v+1
+bumpVersion True  v = v
 
 initialVersion :: Version
 initialVersion = 1