Skip to content
This repository was archived by the owner on Oct 4, 2020. It is now read-only.

Commit c32048a

Browse files
sectoresectore
committed
Rearrange arguments of DOMTokenList functions
1 parent 56ecd6f commit c32048a

File tree

3 files changed

+34
-34
lines changed

3 files changed

+34
-34
lines changed

‎src/DOM/Node/DOMTokenList.js‎

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1,49 +1,49 @@
11
"use strict";
22

3-
exports.add = function(token) {
4-
return function(list) {
3+
exports.add = function(list) {
4+
return function(token) {
55
return function() {
66
return list.add(token);
77
};
88
};
99
};
1010

11-
exports.remove = function(token) {
12-
return function(list) {
11+
exports.remove = function(list) {
12+
return function(token) {
1313
return function() {
1414
return list.remove(token);
1515
};
1616
};
1717
};
1818

19-
exports.contains = function(token) {
20-
return function(list) {
19+
exports.contains = function(list) {
20+
return function(token) {
2121
return function() {
2222
return list.contains(token);
2323
};
2424
};
2525
};
2626

27-
exports.toggle = function(token) {
28-
return function(list) {
27+
exports.toggle = function(list) {
28+
return function(token) {
2929
return function() {
3030
return list.toggle(token);
3131
};
3232
};
3333
};
3434

35-
exports.toggleForce = function(token) {
36-
return function(force) {
37-
return function(list) {
35+
exports.toggleForce = function(list) {
36+
return function(token) {
37+
return function(force) {
3838
return function() {
3939
return list.toggle(token, force);
4040
};
4141
};
4242
};
4343
};
4444

45-
exports._item = function(index) {
46-
return function(list) {
45+
exports._item = function(list) {
46+
return function(index) {
4747
return function() {
4848
return list.item(index);
4949
};

‎src/DOM/Node/DOMTokenList.purs‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -15,17 +15,17 @@ import DOM.Node.Types (DOMTokenList)
1515
import Data.Maybe (Maybe)
1616
import Data.Nullable (Nullable, toMaybe)
1717

18-
foreign import add :: forall eff. String -> DOMTokenList -> Eff (dom :: DOM | eff) Unit
18+
foreign import add :: forall eff. DOMTokenList -> String -> Eff (dom :: DOM | eff) Unit
1919

20-
foreign import remove :: forall eff. String -> DOMTokenList -> Eff (dom :: DOM | eff) Unit
20+
foreign import remove :: forall eff. DOMTokenList -> String -> Eff (dom :: DOM | eff) Unit
2121

22-
foreign import contains :: forall eff. String -> DOMTokenList -> Eff (dom :: DOM | eff) Boolean
22+
foreign import contains :: forall eff. DOMTokenList -> String -> Eff (dom :: DOM | eff) Boolean
2323

24-
foreign import toggle :: forall eff. String -> DOMTokenList -> Eff (dom :: DOM | eff) Boolean
24+
foreign import toggle :: forall eff. DOMTokenList -> String -> Eff (dom :: DOM | eff) Boolean
2525

26-
foreign import toggleForce :: forall eff. String -> Boolean -> DOMTokenList -> Eff (dom :: DOM | eff) Boolean
26+
foreign import toggleForce :: forall eff. DOMTokenList -> String -> Boolean -> Eff (dom :: DOM | eff) Boolean
2727

28-
foreign import _item :: forall eff. Int -> DOMTokenList -> Eff (dom :: DOM | eff) (Nullable String)
28+
foreign import _item :: forall eff. DOMTokenList -> Int -> Eff (dom :: DOM | eff) (Nullable String)
2929

30-
item :: forall eff. Int -> DOMTokenList -> Eff (dom :: DOM | eff) (Maybe String)
30+
item :: forall eff. DOMTokenList -> Int -> Eff (dom :: DOM | eff) (Maybe String)
3131
item index = map toMaybe <<< _item index

‎test/DOM/Node/DomTokenList.purs‎

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ domTokenListTests = do
2626
Just body'' -> liftEff do
2727
_ <- setClassName "a b c" body''
2828
list <- classList body''
29-
CL.contains "a" list
29+
CL.contains list "a"
3030
Nothing -> pure false
3131

3232
result `shouldEqual` true
@@ -38,7 +38,7 @@ domTokenListTests = do
3838
-- clear class names, first
3939
_ <- setClassName "" body''
4040
list <- classList body''
41-
_ <- CL.add "a" list
41+
_ <- CL.add list "a"
4242
className body''
4343
Nothing -> pure "failed"
4444

@@ -50,10 +50,10 @@ domTokenListTests = do
5050
Just body'' -> liftEff do
5151
_ <- setClassName "a b c" body''
5252
list <- classList body''
53-
_ <- CL.remove "b" list
54-
resultA <- CL.contains "a" list
55-
resultB <- CL.contains "b" list
56-
resultC <- CL.contains "c" list
53+
_ <- CL.remove list "b"
54+
resultA <- CL.contains list "a"
55+
resultB <- CL.contains list "b"
56+
resultC <- CL.contains list "c"
5757
-- Only "b" should be removed
5858
pure $ resultA && not resultB && resultC
5959
Nothing -> pure false
@@ -66,7 +66,7 @@ domTokenListTests = do
6666
Just body'' -> liftEff do
6767
_ <- setClassName "a b c" body''
6868
list <- classList body''
69-
_ <- CL.toggle "c" list
69+
_ <- CL.toggle list "c"
7070
className body''
7171
Nothing -> pure "failed"
7272

@@ -78,7 +78,7 @@ domTokenListTests = do
7878
Just body'' -> liftEff do
7979
_ <- setClassName "a b" body''
8080
list <- classList body''
81-
_ <- CL.toggle "c" list
81+
_ <- CL.toggle list "c"
8282
className body''
8383
Nothing -> pure "failed"
8484

@@ -90,7 +90,7 @@ domTokenListTests = do
9090
Just body'' -> liftEff do
9191
_ <- setClassName "a b" body''
9292
list <- classList body''
93-
_ <- CL.toggleForce "c" true list
93+
_ <- CL.toggleForce list "c" true
9494
className body''
9595
Nothing -> pure "failed"
9696

@@ -102,7 +102,7 @@ domTokenListTests = do
102102
Just body'' -> liftEff do
103103
_ <- setClassName "a b c" body''
104104
list <- classList body''
105-
_ <- CL.toggleForce "c" true list
105+
_ <- CL.toggleForce list "c" true
106106
className body''
107107
Nothing -> pure "failed"
108108

@@ -114,7 +114,7 @@ domTokenListTests = do
114114
Just body'' -> liftEff do
115115
_ <- setClassName "a b c" body''
116116
list <- classList body''
117-
_ <- CL.toggleForce "c" false list
117+
_ <- CL.toggleForce list "c" false
118118
className body''
119119
Nothing -> pure "failed"
120120

@@ -126,7 +126,7 @@ domTokenListTests = do
126126
Just body'' -> liftEff do
127127
_ <- setClassName "a b" body''
128128
list <- classList body''
129-
_ <- CL.toggleForce "c" false list
129+
_ <- CL.toggleForce list "c" false
130130
className body''
131131
Nothing -> pure "failed"
132132

@@ -138,7 +138,7 @@ domTokenListTests = do
138138
Just body'' -> liftEff do
139139
_ <- setClassName "a b c" body''
140140
list <- classList body''
141-
CL.item 2 list
141+
CL.item list 2
142142
Nothing -> pure Nothing
143143

144144
(fromMaybe "not found" result) `shouldEqual` "c"
@@ -149,7 +149,7 @@ domTokenListTests = do
149149
Just body'' -> liftEff do
150150
_ <- setClassName "a b c" body''
151151
list <- classList body''
152-
CL.item 5 list
152+
CL.item list 5
153153
Nothing -> pure Nothing
154154

155155
(fromMaybe "not found" result) `shouldEqual` "not found"

0 commit comments

Comments
 (0)