Pair.Red -> Pair.UpdateRed

Author: rofrol

src/Main.elm

@@ -40,14 +40,14 @@ update msg model =
       let
         pair1 = Pair.update sub model.pair1
         totals = Totals.update (Totals.UpdateRed <| Pair.getRedNum pair1) model.totals
-        pair2 = Pair.update (Pair.Red <| Pair.getRedNum pair1) model.pair2
+        pair2 = Pair.update (Pair.UpdateRed <| Pair.getRedNum pair1) model.pair2
       in
         { model | pair1 = pair1, totals = totals, pair2 = pair2 }
 
     Pair2 sub ->
       let
         pair2 = Pair.update sub model.pair2
         totals = Totals.update (Totals.UpdateRed <| Pair.getRedNum pair2) model.totals
-        pair1 = Pair.update (Pair.Red <| Pair.getRedNum pair2) model.pair1
+        pair1 = Pair.update (Pair.UpdateRed <| Pair.getRedNum pair2) model.pair1
       in
         { model | pair1 = pair1, totals = totals, pair2 = pair2 }

src/Pair.elm

@@ -1,4 +1,4 @@
-module Pair exposing (Model, init, view, Msg(Red), update, getRedNum)
+module Pair exposing (Model, init, view, Msg(UpdateRed), update, getRedNum)
 
 import Counter
 
@@ -30,7 +30,7 @@ view model =
 type Msg
   = PairRed Counter.Msg
   | PairGreen Counter.Msg
-  | Red Int
+  | UpdateRed Int
 
 update : Msg -> Model -> Model
 update msg model =
@@ -41,7 +41,7 @@ update msg model =
     PairRed sub ->
       { model | redCounter = Counter.update sub model.redCounter, totalClickCount = model.totalClickCount + 1 }
 
-    Red value ->
+    UpdateRed value ->
       { model | redCounter = Counter.update (Counter.SetNum value) model.redCounter }