Merge pull request #22 from stephengoldbaum/master

Added more cases to the conditions decision table

Author: stephengoldbaum

tutorial/step_2_business_language/src/Morphir/Example/App/Rentals.elm

@@ -8,14 +8,29 @@ import Morphir.Example.App.Winds exposing (..)
 decide : WindCategory -> ForecastDetail -> CurrentInventory -> ProbableReservations -> PendingReturns -> RequestedQuantity -> AllowPartials -> Result Reason ReservationQuantity
 decide windCategory forecastDetail inventory probableReservations returns requestedQuantity allowPartials =
     let
-        isClosed : Bool
-        isClosed = (windCategory == DangerousWinds) || (forecastDetail == Thunderstorms)
+        safeConditions : Bool
+        safeConditions =
+             case ( windCategory, forecastDetail ) of
+                 ( DangerousWinds, _ ) ->
+                     False
+
+                 ( _, Thunderstorms ) ->
+                     False
+
+                 ( HighWinds, Snow ) ->
+                     False
+
+                 ( HighWinds, Fog ) ->
+                     False
+
+                 _ ->
+                     True
 
         availability : Availability
         availability =
             inventory - probableReservations + returns
     in
-    if isClosed then
+    if not safeConditions then
         Err ClosedDueToConditions
 
     else if availability == 0 then

tutorial/step_2_business_language/src/Morphir/Example/App/Winds.elm

@@ -10,10 +10,10 @@ categorizeWind windSpeed =
         Calm
 
     else if windSpeed < 20 then
-        HighWinds
+        Windy
 
     else if windSpeed < 30 then
-        Windy
+        HighWinds
 
     else
         DangerousWinds