From a7db22556b91bc7c499e010b4c051f4442ad8ce2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 29 Dec 2015 22:38:42 +0100
Subject: Using persona to validate emails

---
 src/client/Update.elm | 57 ---------------------------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100644 src/client/Update.elm

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

diff --git a/src/client/Update.elm b/src/client/Update.elm
deleted file mode 100644
index 3c4614a..0000000
--- a/src/client/Update.elm
+++ /dev/null
@@ -1,57 +0,0 @@
-module Update
-  ( Action(..)
-  , actions
-  , updateModel
-  ) where
-
-import Time exposing (Time)
-
-import Model exposing (Model)
-import Model.User exposing (Users, UserId)
-import Model.Payment exposing (Payments)
-import Model.Payer exposing (Payers)
-import Model.View as V
-import Model.View.SignInView exposing (..)
-import Model.View.LoggedInView exposing (..)
-
-import Update.SignIn exposing (..)
-import Update.LoggedIn exposing (..)
-
-type Action =
-  NoOp
-  | UpdateTime Time
-  | GoSignInView
-  | SignInError String
-  | UpdateSignIn SignInAction
-  | GoLoggedInView Users UserId Payments Payments Int Payers
-  | UpdateLoggedIn LoggedAction
-
-actions : Signal.Mailbox Action
-actions = Signal.mailbox NoOp
-
-updateModel : Action -> Model -> Model
-updateModel action model =
-  case action of
-    NoOp ->
-      model
-    UpdateTime time ->
-      { model | currentTime <- time }
-    GoSignInView ->
-      { model | view <- V.SignInView initSignInView }
-    GoLoggedInView users me monthlyPayments payments paymentsCount payers ->
-      { model | view <- V.LoggedInView (initLoggedInView users me monthlyPayments payments paymentsCount payers) }
-    SignInError msg ->
-      let signInView = { initSignInView | result <- Just (Err msg) }
-      in  { model | view <- V.SignInView signInView }
-    UpdateSignIn signInAction ->
-      case model.view of
-        V.SignInView signInView ->
-          { model | view <- V.SignInView (updateSignIn signInAction signInView) }
-        _ ->
-          model
-    UpdateLoggedIn loggedAction ->
-      case model.view of
-        V.LoggedInView loggedInView ->
-          { model | view <- V.LoggedInView (updateLoggedIn model loggedAction loggedInView) }
-        _ ->
-          model
-- 
cgit v1.2.3