aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-11-23 16:26:14 +0000
committerAkshay <[email protected]>2020-11-23 16:26:14 +0000
commit90415ddb2c516cc23650a2681e7c8fb31623ec6b (patch)
tree389846f1fcdb7f19a4569db14691ff1b38d7b334
parentf77eea2443fe47238297bf058894aabda693c43e (diff)
use document instead of element, prefer point-free
-rw-r--r--src/Main.elm8
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
14import Styles exposing (styledButton, styledInput, styledTextBox, wordStyle) 14import Styles exposing (styledButton, styledInput, styledTextBox, wordStyle)
15import Task 15import Task
16import Time 16import Time
17import Utils exposing (isJust, isNothing) 17import Utils exposing (flip, isJust, isNothing)
18import Views exposing (..) 18import Views exposing (..)
19 19
20 20
21main = 21main =
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
35stringsToWords : List String -> List Word 35stringsToWords : List String -> List Word
36stringsToWords ls = 36stringsToWords ls =
37 List.map (\w -> Word w Todo) ls 37 List.map (flip Word <| Todo) ls
38 38
39 39
40generateWords : Config -> Cmd Msg 40generateWords : Config -> Cmd Msg