6b8fada · elk · git.iko.soy

Fix type errors and naming mistake

commit6b8fadac5feb532a16e5ab432a00be5ec1886e8b authorevancz <info@elm-lang.org> dateSun 5 May 2013, 00:40 (14 years ago) parentc2def3f

1 file changed+4−4

unifiedsplit

compiler/Types/Alias.hs+4−4

@@ -11,13 +11,13 @@ import Types.Types

1111

1212builtins :: [(String,([X],Type))]

1313builtins =

14− let touch = ("t0", time) : map (flip (,) int) ["x","y","x0","y0","id"]

15− state = [("text", string), ("start", int), ("end", int)]

14+ let touch = ("t0", [time]) : map (flip (,) [int]) ["x","y","x0","y0","id"]

15+ state = [("text", [string]), ("start", [int]), ("end", [int])]

1616 in [ ("String", ([], listOf char))

1717 , ("Time", ([], float))

1818 , ("KeyCode", ([], int))

19− , ("Touch", ([], RecordT (Map.fromString touch) EmptyRecord))

20− , ("TextState", ([], RecordT (Map.fromString state) EmptyRecord))

19+ , ("Touch", ([], RecordT (Map.fromList touch) EmptyRecord))

20+ , ("TextState", ([], RecordT (Map.fromList state) EmptyRecord))

2121 ]

2222

2323get :: [Statement] -> Map.Map String ([X],Type)