diff options
Diffstat (limited to 'src/Base.elm')
-rw-r--r-- | src/Base.elm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/src/Base.elm b/src/Base.elm index c3557d3..480147a 100644 --- a/src/Base.elm +++ b/src/Base.elm | |||
@@ -22,7 +22,27 @@ type alias Model = | |||
22 | , end : Maybe Posix | 22 | , end : Maybe Posix |
23 | , words : Array Word | 23 | , words : Array Word |
24 | , accuracy : Maybe Float | 24 | , accuracy : Maybe Float |
25 | , length : Int | 25 | , config : Config |
26 | , currentWord : Int | 26 | , currentWord : Int |
27 | , inputBox : String | 27 | , inputBox : String |
28 | } | 28 | } |
29 | |||
30 | |||
31 | type alias Config = | ||
32 | { punctuation : Bool | ||
33 | , capitals : Bool | ||
34 | , length : Int | ||
35 | } | ||
36 | |||
37 | |||
38 | type Msg | ||
39 | = Started Time.Posix | ||
40 | | Finished Time.Posix | ||
41 | | CorrectInput | ||
42 | | CorrectSoFar | ||
43 | | NextWord | ||
44 | | WrongInput | ||
45 | | InputChanged String | ||
46 | | LoadWords (List String) | ||
47 | | WordLengthChanged Int | ||
48 | | Redo | ||