Full rewrite of the Range module fixed example 4

mpizenberg · May 4, 2020 · 6da0c12 · 6da0c12
1 parent fdac73d
commit 6da0c12
Show file tree

Hide file tree

Showing 4 changed files with 196 additions and 477 deletions.
diff --git a/src/Assignment.elm b/src/Assignment.elm
@@ -54,7 +54,12 @@ finalDecision : Assignment -> Maybe { name : String, version : Version }
 finalDecision { name, term, kind } =
     case ( kind, term ) of
         ( Decision, Term.Positive range ) ->
-            Just { name = name, version = Maybe.withDefault Version.one (Range.getExactVersion range) }
+            case Range.getExactVersion range of
+                Just version ->
+                    Just { name = name, version = version }
+
+                Nothing ->
+                    Debug.todo "Should not be possible to have a decision without an exact version"
 
         _ ->
             Nothing