diff --git a/Distribution/Version.hs b/Distribution/Version.hs
index b37d3ce56c2db048be100f06b45eab1db174ad62..7d319e4f3fa3e2d0a8c0ea57cb812b12d8cc68d6 100644
--- a/Distribution/Version.hs
+++ b/Distribution/Version.hs
@@ -45,7 +45,7 @@ module Distribution.Version (
   Version(..),
 
   -- * Version ranges
-  VersionRange(..), 
+  VersionRange(..), notThisVersion,
   orLaterVersion, orEarlierVersion,
   betweenVersionsInclusive,
   withinRange,
@@ -84,6 +84,9 @@ isAnyVersion :: VersionRange -> Bool
 isAnyVersion AnyVersion = True
 isAnyVersion _ = False
 
+notThisVersion :: Version -> VersionRange
+notThisVersion v = UnionVersionRanges (EarlierVersion v) (LaterVersion v)
+
 orLaterVersion :: Version -> VersionRange
 orLaterVersion   v = UnionVersionRanges (ThisVersion v) (LaterVersion v)