@@ -147,20 +147,20 @@ type ScrollToOptions_ =
147
147
, behavior :: String
148
148
}
149
149
150
- foreign import _scroll :: Element -> ScrollToOptions_ -> Effect Unit
150
+ foreign import _scroll :: ScrollToOptions_ -> Element -> Effect Unit
151
151
152
- scroll :: Element -> ScrollToOptions -> Effect Unit
153
- scroll elem opts = _scroll elem (opts { behavior = stringScrollBehavior opts.behavior })
152
+ scroll :: ScrollToOptions -> Element -> Effect Unit
153
+ scroll opts = _scroll (opts { behavior = stringScrollBehavior opts.behavior })
154
154
155
- foreign import _scrollTo :: Element -> ScrollToOptions_ -> Effect Unit
155
+ foreign import _scrollTo :: ScrollToOptions_ -> Element -> Effect Unit
156
156
157
- scrollTo :: Element -> ScrollToOptions -> Effect Unit
158
- scrollTo elem opts = _scrollTo elem (opts { behavior = stringScrollBehavior opts.behavior })
157
+ scrollTo :: ScrollToOptions -> Element -> Effect Unit
158
+ scrollTo opts = _scrollTo (opts { behavior = stringScrollBehavior opts.behavior })
159
159
160
- foreign import _scrollBy :: Element -> ScrollToOptions_ -> Effect Unit
160
+ foreign import _scrollBy :: ScrollToOptions_ -> Element -> Effect Unit
161
161
162
- scrollBy :: Element -> ScrollToOptions -> Effect Unit
163
- scrollBy elem opts = _scrollBy elem (opts { behavior = stringScrollBehavior opts.behavior })
162
+ scrollBy :: ScrollToOptions -> Element -> Effect Unit
163
+ scrollBy opts = _scrollBy (opts { behavior = stringScrollBehavior opts.behavior })
164
164
165
165
data ScrollAlignment = Start | Center | End | Nearest
166
166
@@ -182,10 +182,10 @@ type ScrollIntoViewOptions_ =
182
182
, inline :: String
183
183
}
184
184
185
- foreign import _scrollIntoView :: Element -> ScrollIntoViewOptions_ -> Effect Unit
185
+ foreign import _scrollIntoView :: ScrollIntoViewOptions_ -> Element -> Effect Unit
186
186
187
- scrollIntoView :: Element -> ScrollIntoViewOptions -> Effect Unit
188
- scrollIntoView elem _opts = _scrollIntoView elem opts
187
+ scrollIntoView :: ScrollIntoViewOptions -> Element -> Effect Unit
188
+ scrollIntoView _opts = _scrollIntoView opts
189
189
where
190
190
opts = { behavior: stringScrollBehavior _opts.behavior
191
191
, block: stringScrollAlignment _opts.block
0 commit comments