1 files changed, 0 insertions, 46 deletions
diff --git a/src/client/elm/LoggedIn/User/Model.elm b/src/client/elm/LoggedIn/User/Model.elm
deleted file mode 100644
index 4f96a80..0000000
--- a/src/client/elm/LoggedIn/User/Model.elm
+++ /dev/null
@@ -1,46 +0,0 @@
-module LoggedIn.User.Model
-  ( Model
-  , AddIncome
-  , init
-  ) where
-
-import String exposing (toInt, split)
-import Date exposing (Date)
-import Date.Utils exposing (dateFromFields)
-import Utils.Date exposing (numToMonth)
-
-import Form exposing (Form)
-import Form.Validate as Validate exposing (..)
-import Form.Error exposing (Error(InvalidString))
-
-type alias Model =
-  { addIncome : Form () AddIncome
-  }
-
-type alias AddIncome =
-  { creation : Date
-  , amount : Int
-  }
-
-init : Model
-init =
-  { addIncome = Form.initial [] validate
-  }
-
-validate : Validation () AddIncome
-validate =
-  form2 AddIncome
-    (get "creation" dateValidation)
-    (get "amount" (int `andThen` (minInt 1)))
-
-dateValidation : Validation () Date
-dateValidation =
-  customValidation string (\str ->
-    case split "/" str of
-      [day, month, year] ->
-        case (toInt day, toInt month, toInt year) of
-          (Ok dayNum, Ok monthNum, Ok yearNum) ->
-            Ok (dateFromFields yearNum (numToMonth monthNum) dayNum 0 0 0 0)
-          _ -> Err InvalidString
-      _ -> Err InvalidString
-  )