corrected TextInputMsg to InputTextMsg

to884 · Nov 1, 2021 · efad329 · efad329
1 parent c9ddeea
commit efad329
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/chapters/scaling/splitting-programs.md b/chapters/scaling/splitting-programs.md
@@ -233,7 +233,7 @@ let render (state: State) (dispatch: Msg -> unit) =
     dispatch (Msg.CounterMsg counterMsg)
 
   let inputTextDispatch (inputTextMsg: InputTextMsg) : unit =
-    dispatch (Msg.TextInputMsg inputTextMsg)
+    dispatch (Msg.InputTextMsg inputTextMsg)
 
   match state.CurrentPage with
   | Page.Counter ->
@@ -264,7 +264,7 @@ let counterDispatch (counterMsg: CounterMsg) : unit =
   dispatch (Msg.CounterMsg counterMsg)
 
 let inputTextDispatch (inputTextMsg: InputTextMsg) : unit =
-  dispatch (Msg.TextInputMsg inputTextMsg)
+  dispatch (Msg.InputTextMsg inputTextMsg)
 ```
 Here they are again. As you can see, these functions do nothing special, they only wrap their input messages (for the child programs) into a message type of the parent program, namely from the cases `Msg.CounterMsg` and `Msg.InputTextMsg` which the original `dispatch` function understands since it takes `Msg` as input.