blob: fdfb9643bf8e34c990f13e9541ab52785baf7913 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
module LoggedIn.Income.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
)
|
