From 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 3 Jun 2016 20:27:16 +0200
Subject: Migrate to elm 0.17

---
 src/client/elm/LoggedIn/Income/View.elm | 38 ++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'src/client/elm/LoggedIn/Income/View.elm')

diff --git a/src/client/elm/LoggedIn/Income/View.elm b/src/client/elm/LoggedIn/Income/View.elm
index 0d6e02d..39f16f4 100644
--- a/src/client/elm/LoggedIn/Income/View.elm
+++ b/src/client/elm/LoggedIn/Income/View.elm
@@ -1,17 +1,20 @@
-module LoggedIn.Income.View
+module LoggedIn.Income.View exposing
   ( view
-  ) where
+  )
 
 import Dict
 import Date
 import Time exposing (Time)
 
+import Html.App as Html
 import Html exposing (..)
 import Html.Events exposing (..)
 import Html.Attributes exposing (..)
 import Form exposing (Form)
 import Form.Input as Input
 
+import Msg exposing (Msg)
+
 import LoggedData exposing (LoggedData)
 
 import Model.Income exposing (IncomeId, Income, userCumulativeIncomeSince)
@@ -20,11 +23,8 @@ import Model.Payer exposing (useIncomesFrom)
 import Model.User exposing (UserId, User)
 import LoggedIn.Income.Model as IncomeModel
 
-import Mailbox
-
-import Action
-import LoggedIn.Action as LoggedInAction
-import LoggedIn.Income.Action as IncomeAction
+import LoggedIn.Msg as LoggedInMsg
+import LoggedIn.Income.Msg as IncomeMsg
 
 import LoggedIn.View.Date exposing (renderShortDate)
 import LoggedIn.View.Format as Format
@@ -34,7 +34,7 @@ import Utils.Maybe exposing (isJust)
 import LoggedIn.View.Date exposing (renderLongDate)
 import View.Events exposing (onSubmitPrevDefault)
 
-view : LoggedData -> IncomeModel.Model -> Html
+view : LoggedData -> IncomeModel.Model -> Html Msg
 view loggedData incomeModel =
   div
     [ class "income" ]
@@ -47,7 +47,7 @@ view loggedData incomeModel =
     , incomesView loggedData
     ]
 
-cumulativeIncomesView : LoggedData -> Time -> Html
+cumulativeIncomesView : LoggedData -> Time -> Html Msg
 cumulativeIncomesView loggedData since =
   let longDate = renderLongDate (Date.fromTime since) loggedData.translations
   in  div
@@ -71,38 +71,38 @@ cumulativeIncomesView loggedData since =
             )
         ]
 
-addIncomeView : LoggedData -> Form () IncomeModel.AddIncome -> Html
+addIncomeView : LoggedData -> Form () IncomeModel.AddIncome -> Html Msg
 addIncomeView loggedData addIncome =
   let
-    formAddress = Signal.forwardTo Mailbox.address (Action.UpdateLoggedIn << LoggedInAction.IncomeAction << IncomeAction.AddIncomeAction)
     errorFor error field =
       if isJust field.liveError
         then div [ class "error" ] [ text (getMessage error loggedData.translations) ]
         else text ""
     creation = Form.getFieldAsString "creation" addIncome
     amount = Form.getFieldAsString "amount" addIncome
+    htmlMap = Html.map (Msg.UpdateLoggedIn << LoggedInMsg.IncomeMsg << IncomeMsg.AddIncomeMsg)
   in
     Html.form
-      [ onSubmitPrevDefault Mailbox.address Action.NoOp ]
+      [ onSubmitPrevDefault Msg.NoOp ]
       [ label [] [ text "Creation" ]
-      , Input.textInput creation formAddress []
+      , htmlMap <| Input.textInput creation []
       , errorFor "DateValidationError" creation
 
       , label [] [ text "amount" ]
-      , Input.textInput amount formAddress []
+      , htmlMap <| Input.textInput amount []
       , errorFor "IncomeValidationError" amount
 
       , button
           [ case Form.getOutput addIncome of
               Just data ->
-                onClick Mailbox.address (Action.UpdateLoggedIn <| LoggedInAction.AddIncome data.creation data.amount)
+                onClick (Msg.UpdateLoggedIn <| LoggedInMsg.AddIncome data.creation data.amount)
               Nothing ->
-                onClick formAddress Form.Submit
+                onClick (Msg.UpdateLoggedIn <| LoggedInMsg.IncomeMsg <| IncomeMsg.AddIncomeMsg <| Form.Submit)
           ]
           [ text (getMessage "Add" loggedData.translations) ]
       ]
 
-incomesView : LoggedData -> Html
+incomesView : LoggedData -> Html Msg
 incomesView loggedData =
   ul
     []
@@ -114,7 +114,7 @@ incomesView loggedData =
         |> List.map (incomeView loggedData)
     )
 
-incomeView : LoggedData -> (IncomeId, Income) -> Html
+incomeView : LoggedData -> (IncomeId, Income) -> Html Msg
 incomeView loggedData (incomeId, income) =
   li
     []
@@ -123,6 +123,6 @@ incomeView loggedData (incomeId, income) =
     , text <| Format.price loggedData.conf income.amount
     , text "    −    "
     , button
-        [ onClick Mailbox.address (Action.UpdateLoggedIn <| LoggedInAction.DeleteIncome incomeId) ]
+        [ onClick (Msg.UpdateLoggedIn <| LoggedInMsg.DeleteIncome incomeId) ]
         [ text "x" ]
     ]
-- 
cgit v1.2.3