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/Home/View/Paging.elm | 45 ++++++++++++++--------------
 1 file changed, 22 insertions(+), 23 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm
index 939ee55..15bb5a1 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -1,18 +1,17 @@
-module LoggedIn.Home.View.Paging
+module LoggedIn.Home.View.Paging exposing
   ( paymentsPaging
-  ) where
+  )
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
 
-import LoggedIn.Action as LoggedInAction
+import LoggedIn.Msg as LoggedInMsg
 
-import LoggedIn.Home.Action as HomeAction
+import LoggedIn.Home.Msg as HomeMsg
 import LoggedIn.Home.Model as HomeModel
 
-import Action exposing (Action)
-import Mailbox
+import Msg exposing (Msg)
 import LoggedData exposing (LoggedData)
 import Model.Payment as Payment exposing (Payments, perPage)
 
@@ -21,7 +20,7 @@ import View.Icon exposing (renderIcon)
 showedPages : Int
 showedPages = 5
 
-paymentsPaging : Payments -> HomeModel.Model -> Html
+paymentsPaging : Payments -> HomeModel.Model -> Html Msg
 paymentsPaging payments homeModel =
   let maxPage = ceiling (toFloat (List.length (Payment.punctual payments)) / toFloat perPage)
       pages = truncatePages homeModel.currentPage [1..maxPage]
@@ -50,48 +49,48 @@ truncatePages currentPage pages =
           [(currentPage - showedLeftPages)..(currentPage + showedRightPages)]
   in  List.filter (flip List.member pages) truncatedPages
 
-firstPage : HomeModel.Model -> Html
+firstPage : HomeModel.Model -> Html Msg
 firstPage homeModel =
   button
     [ classList
         [ ("page", True)
         , ("disable", homeModel.currentPage <= 1)
         ]
-    , onClick Mailbox.address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| 1)
+    , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| 1)
     ]
     [ renderIcon "fast-backward" ]
 
-previousPage : HomeModel.Model -> Html
+previousPage : HomeModel.Model -> Html Msg
 previousPage homeModel =
   button
     [ class "page"
-    , onClick Mailbox.address <|
+    , onClick <|
         if homeModel.currentPage > 1
-          then (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage - 1)
-          else Action.NoOp
+          then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage - 1)
+          else Msg.NoOp
     ]
     [ renderIcon "backward" ]
 
-nextPage : HomeModel.Model -> Int -> Html
+nextPage : HomeModel.Model -> Int -> Html Msg
 nextPage homeModel maxPage =
   button
     [ class "page"
-    , onClick Mailbox.address <|
+    , onClick <|
         if homeModel.currentPage < maxPage
-          then (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| homeModel.currentPage + 1)
-          else Action.NoOp
+          then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage + 1)
+          else Msg.NoOp
     ]
     [ renderIcon "forward" ]
 
-lastPage : HomeModel.Model -> Int -> Html
+lastPage : HomeModel.Model -> Int -> Html Msg
 lastPage homeModel maxPage =
   button
     [ class "page"
-    , onClick Mailbox.address (Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| maxPage)
+    , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| maxPage)
     ]
     [ renderIcon "fast-forward" ]
 
-paymentsPage : HomeModel.Model -> Int -> Html
+paymentsPage : HomeModel.Model -> Int -> Html Msg
 paymentsPage homeModel page =
   let onCurrentPage = page == homeModel.currentPage
   in  button
@@ -99,9 +98,9 @@ paymentsPage homeModel page =
             [ ("page", True)
             , ("current", onCurrentPage)
             ]
-        , onClick Mailbox.address <|
+        , onClick <|
             if onCurrentPage
-              then Action.NoOp
-              else Action.UpdateLoggedIn << LoggedInAction.HomeAction << HomeAction.UpdatePage <| page
+              then Msg.NoOp
+              else Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| page
         ]
         [ text (toString page) ]
-- 
cgit v1.2.3