From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001 From: Joris Date: Tue, 29 Mar 2016 23:46:47 +0200 Subject: Move logged data to LoggedIn component --- src/client/elm/LoggedIn/Home/Monthly/Update.elm | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 src/client/elm/LoggedIn/Home/Monthly/Update.elm (limited to 'src/client/elm/LoggedIn/Home/Monthly/Update.elm') diff --git a/src/client/elm/LoggedIn/Home/Monthly/Update.elm b/src/client/elm/LoggedIn/Home/Monthly/Update.elm deleted file mode 100644 index 70b2f9c..0000000 --- a/src/client/elm/LoggedIn/Home/Monthly/Update.elm +++ /dev/null @@ -1,21 +0,0 @@ -module LoggedIn.Home.Monthly.Update - ( update - ) where - -import LoggedIn.Home.Monthly.Action as MonthlyAction -import LoggedIn.Home.Monthly.Model as MonthlyModel - -update : MonthlyAction.Action -> MonthlyModel.Model -> MonthlyModel.Model -update action monthly = - case action of - MonthlyAction.ToggleDetail -> - { monthly | visibleDetail = not monthly.visibleDetail } - MonthlyAction.AddPayment payment -> - { monthly - | payments = payment :: monthly.payments - , visibleDetail = True - } - MonthlyAction.DeletePayment payment -> - { monthly - | payments = List.filter (((/=) payment.id) << .id) monthly.payments - } -- cgit v1.2.3