From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/LoggedIn/Home/Update.elm | 44 -------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 src/client/LoggedIn/Home/Update.elm

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

diff --git a/src/client/LoggedIn/Home/Update.elm b/src/client/LoggedIn/Home/Update.elm
deleted file mode 100644
index 06c2c7e..0000000
--- a/src/client/LoggedIn/Home/Update.elm
+++ /dev/null
@@ -1,44 +0,0 @@
-module LoggedIn.Home.Update exposing
-  ( update
-  )
-
-import Form exposing (Form)
-
-import LoggedData exposing (LoggedData)
-import LoggedIn.Home.Model as Home
-import LoggedIn.Home.Msg as Home
-import Model.Frequency as Frequency exposing (Frequency(..))
-
-update : LoggedData -> Home.Msg -> Home.Model -> (Home.Model, Cmd Home.Msg)
-update loggedData msg model =
-  case msg of
-
-    Home.NoOp ->
-      ( model
-      , Cmd.none
-      )
-
-    Home.UpdatePage page ->
-      ( updatePage page model
-      , Cmd.none
-      )
-
-    Home.SearchMsg formMsg ->
-      let newModel =
-            case formMsg of
-              Form.Input "name" _ _ -> updatePage 1 model
-              _ -> model
-      in  ( { model | search = Form.update Home.validation formMsg model.search }
-          , Cmd.none
-          )
-
-updatePage : Int -> Home.Model -> Home.Model
-updatePage page model =
-  let frequency =
-        Form.getFieldAsString "frequency" model.search
-          |> .value
-          |> Maybe.andThen Frequency.fromString
-  in  case frequency of
-        Just Punctual -> { model | punctualPage = page }
-        Just Monthly -> { model | monthlyPage = page }
-        Nothing -> model
-- 
cgit v1.2.3