Added helper function for finding a compatible semantic version range for a given semantic version.

Author: robinheghan

src/SemanticVersionRange.gren

@@ -5,6 +5,7 @@ module SemanticVersionRange exposing
     , lowerBound
     , upperBound
     , intersect
+    , compatibleWith
     , fromExact
     , fromString
     , jsonDecoder
@@ -103,6 +104,14 @@ intersect left right =
                             SemanticVersionRange { lower = lowerRight, upper = upperRight }
 
 
+compatibleWith : SemanticVersion -> SemanticVersionRange
+compatibleWith ver =
+    SemanticVersionRange
+        { lower = { major = ver.major, minor = ver.minor, patch = 0 }
+        , upper = { major = ver.major + 1, minor = 0, patch = 0 }
+        }
+
+
 fromExact : SemanticVersion -> SemanticVersionRange
 fromExact ({ major, minor, patch } as lower) =
     SemanticVersionRange

tests/src/Test/SemanticVersionRange.gren

@@ -67,6 +67,11 @@ tests =
                     ]
                     (rangeFrom 1 5 0)
             ]
+        , describe "compatibleWith"
+            [ test "1.2.4" <| \{} ->
+                Range.compatibleWith { major = 1, minor = 2, patch = 4 }
+                    |> Expect.equal (rangeFrom 1 2 0)
+            ]
         ]