src/Base.elm


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

module Base exposing (..)

import Array exposing (Array)
import Time exposing (Posix)


type WordStatus
    = Correct
    | Wrong
    | Todo
    | CurrentWord


type alias Word =
    { content : String
    , status : WordStatus
    }


type alias Model =
    { begin : Maybe Posix
    , end : Maybe Posix
    , words : Array Word
    , accuracy : Maybe Float
    , length : Int
    , currentWord : Int
    , inputBox : String
    }