@@ -1,7 +1,8 @@
2module JavaScript.Experimental where
2module JavaScript.Experimental where
4−import JavaScript as JS
4+import JavaScript (JSObject)
5+import Native.JavaScript as Native
6-- Turn arbitrary JavaScript objects into Elm records.
7-- Turn arbitrary JavaScript objects into Elm records.
7-- Arrays are converted into lists, nested objects are allowed.
8-- Arrays are converted into lists, nested objects are allowed.
@@ -15,7 +16,7 @@ import JavaScript as JS
15-- { answer:null }
16-- { answer:null }
16-- { info:[true,42,'what'] }
17-- { info:[true,42,'what'] }
17toRecord : JSObject -> a
18toRecord : JSObject -> a
18−toRecord = JS.toRecord
19+toRecord = Native.toRecord
20-- Turn arbitrary Elm records into JavaScript objects.
21-- Turn arbitrary Elm records into JavaScript objects.
21-- Lists become arrays, nested records are allowed. No ADTs.
22-- Lists become arrays, nested records are allowed. No ADTs.
@@ -28,4 +29,4 @@ toRecord = JS.toRecord
28-- { answer = Nothing }
29-- { answer = Nothing }
29-- { result = Left "An error occurred" }
30-- { result = Left "An error occurred" }
30fromRecord : a -> JSObject
31fromRecord : a -> JSObject
31−fromRecord = JS.fromRecord
32+fromRecord = Native.fromRecord