Using persona to validate emails

3 files changed, 0 insertions, 120 deletions

diff --git a/src/client/Update/LoggedIn/Account.elm b/src/client/Update/LoggedIn/Account.elm
deleted file mode 100644
index cf4c834..0000000
--- a/src/client/Update/LoggedIn/Account.elm
+++ /dev/null
@@ -1,64 +0,0 @@
-module Update.LoggedIn.Account
-  ( AccountAction(..)
-  , updateAccount
-  ) where
-
-import Maybe
-import Time exposing (Time)
-import Dict
-
-import Model.User exposing (UserId)
-import Model.Payer exposing (..)
-import Model.View.LoggedIn.Account exposing (..)
-
-import Utils.Maybe exposing (isJust)
-
-type AccountAction =
-  ToggleDetail
-  | UpdatePayer UserId Time Int
-  | ToggleIncomeEdition
-  | UpdateIncomeEdition String
-  | UpdateEditionError String
-  | UpdateIncome Time Int
-
-updateAccount : AccountAction -> Account -> Account
-updateAccount action account =
-  case action of
-    ToggleDetail ->
-      { account | visibleDetail <- not account.visibleDetail }
-    UpdatePayer userId creation amountDiff ->
-      { account | payers <- updatePayers account.payers userId creation amountDiff }
-    ToggleIncomeEdition ->
-      { account | incomeEdition <-
-          if isJust account.incomeEdition
-            then Nothing
-            else Just (initIncomeEdition (Maybe.withDefault 0 (getCurrentIncome account)))
-      }
-    UpdateIncomeEdition income ->
-      case account.incomeEdition of
-        Just incomeEdition ->
-          { account | incomeEdition <- Just { incomeEdition | income <- income } }
-        Nothing ->
-          account
-    UpdateEditionError error ->
-      case account.incomeEdition of
-        Just incomeEdition ->
-          { account | incomeEdition <- Just { incomeEdition | error <- Just error } }
-        Nothing ->
-          account
-    UpdateIncome currentTime amount ->
-      { account
-      | payers <-
-          account.payers
-            |> Dict.update account.me (\mbPayer ->
-              case mbPayer of
-                Just payer ->
-                  Just
-                    { payer
-                    | incomes <- payer.incomes ++ [{ creation = currentTime, amount = amount }]
-                    }
-                Nothing ->
-                  Nothing
-            )
-      , incomeEdition <- Nothing
-      }
diff --git a/src/client/Update/LoggedIn/Add.elm b/src/client/Update/LoggedIn/Add.elm
deleted file mode 100644
index 1f28997..0000000
--- a/src/client/Update/LoggedIn/Add.elm
+++ /dev/null
@@ -1,29 +0,0 @@
-module Update.LoggedIn.Add
-  ( AddPaymentAction(..)
-  , updateAddPayment
-  ) where
-
-import Model.View.LoggedIn.Add exposing (..)
-
-type AddPaymentAction =
-  UpdateName String
-  | UpdateCost String
-  | AddError (Maybe String) (Maybe String)
-  | ToggleFrequency
-
-updateAddPayment : AddPaymentAction -> AddPayment -> AddPayment
-updateAddPayment action addPayment =
-  case action of
-    UpdateName name ->
-      { addPayment | name <- name }
-    UpdateCost cost ->
-      { addPayment | cost <- cost }
-    AddError nameError costError ->
-      { addPayment
-      | nameError <- nameError
-      , costError <- costError
-      }
-    ToggleFrequency ->
-      { addPayment
-      | frequency <- if addPayment.frequency == Punctual then Monthly else Punctual
-      }
diff --git a/src/client/Update/LoggedIn/Monthly.elm b/src/client/Update/LoggedIn/Monthly.elm
deleted file mode 100644
index 1379323..0000000
--- a/src/client/Update/LoggedIn/Monthly.elm
+++ /dev/null
@@ -1,27 +0,0 @@
-module Update.LoggedIn.Monthly
-  ( MonthlyAction(..)
-  , updateMonthly
-  ) where
-
-import Model.Payment exposing (Payment, PaymentId)
-import Model.View.LoggedIn.Monthly exposing (..)
-
-type MonthlyAction =
-  ToggleDetail
-  | AddPayment Payment
-  | DeletePayment PaymentId
-
-updateMonthly : MonthlyAction -> Monthly -> Monthly
-updateMonthly action monthly =
-  case action of
-    ToggleDetail ->
-      { monthly | visibleDetail <- not monthly.visibleDetail }
-    AddPayment payment ->
-      { monthly
-      | payments <- payment :: monthly.payments
-      , visibleDetail <- True
-      }
-    DeletePayment id ->
-      { monthly
-      | payments <- List.filter (\payment -> payment.id /= id) monthly.payments
-      }