diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Main.elm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Main.elm b/src/Main.elm index db4c2f4..20443fd 100644 --- a/src/Main.elm +++ b/src/Main.elm | |||
@@ -14,14 +14,14 @@ import Random | |||
14 | import Styles exposing (styledButton, styledInput, styledTextBox, wordStyle) | 14 | import Styles exposing (styledButton, styledInput, styledTextBox, wordStyle) |
15 | import Task | 15 | import Task |
16 | import Time | 16 | import Time |
17 | import Utils exposing (isJust, isNothing) | 17 | import Utils exposing (flip, isJust, isNothing) |
18 | import Views exposing (..) | 18 | import Views exposing (..) |
19 | 19 | ||
20 | 20 | ||
21 | main = | 21 | main = |
22 | Browser.element | 22 | Browser.document |
23 | { init = init | 23 | { init = init |
24 | , view = view >> toUnstyled | 24 | , view = \m -> { title = "typers", body = [ view m |> toUnstyled ] } |
25 | , update = update | 25 | , update = update |
26 | , subscriptions = subscriptions | 26 | , subscriptions = subscriptions |
27 | } | 27 | } |
@@ -34,7 +34,7 @@ subscriptions model = | |||
34 | 34 | ||
35 | stringsToWords : List String -> List Word | 35 | stringsToWords : List String -> List Word |
36 | stringsToWords ls = | 36 | stringsToWords ls = |
37 | List.map (\w -> Word w Todo) ls | 37 | List.map (flip Word <| Todo) ls |
38 | 38 | ||
39 | 39 | ||
40 | generateWords : Config -> Cmd Msg | 40 | generateWords : Config -> Cmd Msg |