@@ -54,7 +54,7 @@ import qualified Text.Read as T
5454import qualified GHCJS.DOM.Event as Event
5555import qualified GHCJS.DOM.HTMLInputElement as Input
5656
57−{-# DEPRECATED TextInput "Use 'inputElement' directly" #-}
57+{-# DEPRECATED TextInput, _textInput_element, TextInputConfig, textInput, textInputGetEnter "Use 'inputElement' directly" #-}
5858data TextInput t
5959 = TextInput { _textInput_value :: Dynamic t Text
6060 , _textInput_input :: Event t Text
@@ -65,7 +65,6 @@ data TextInput t
6565 , _textInput_builderElement :: InputElement EventResult GhcjsDomSpace t
6666 }
6767
68−{-# DEPRECATED _textInput_element "Use 'inputElement' directly" #-}
6968_textInput_element :: TextInput t -> HTMLInputElement
7069_textInput_element = _inputElement_raw . _textInput_builderElement
7170
@@ -73,7 +72,6 @@ instance Reflex t => HasDomEvent t (TextInput t) en where
7372 type DomEventType (TextInput t) en = DomEventType (InputElement EventResult GhcjsDomSpace t) en
7473 domEvent en = domEvent en . _textInput_builderElement
7574
76−{-# DEPRECATED TextInputConfig "Use 'inputElement' directly" #-}
7775data TextInputConfig t
7876 = TextInputConfig { _textInputConfig_inputType :: Text
7977 , _textInputConfig_initialValue :: Text
@@ -89,7 +87,6 @@ instance Reflex t => Default (TextInputConfig t) where
8987 , _textInputConfig_attributes = constDyn mempty
9088 }
9189
92−{-# DEPRECATED textInput "Use 'inputElement' directly" #-}
9390-- | Create an input whose value is a string. By default, the "type" attribute is set to "text", but it can be changed using the _textInputConfig_inputType field. Note that only types for which the value is always a string will work - types whose value may be null will not work properly with this widget.
9491{-# INLINABLE textInput #-}
9592textInput :: (DomBuilder t m, PostBuild t m, DomBuilderSpace m ~ GhcjsDomSpace) => TextInputConfig t -> m (TextInput t)
@@ -110,7 +107,6 @@ textInput (TextInputConfig inputType initial eSetValue dAttrs) = do
110107 }
111108
112109{-# INLINE textInputGetEnter #-}
113−{-# DEPRECATED textInputGetEnter "Use 'keypress Enter' instead" #-}
114110textInputGetEnter :: Reflex t => TextInput t -> Event t ()
115111textInputGetEnter = keypress Enter
116112
@@ -165,7 +161,7 @@ rangeInput (RangeInputConfig initial eSetValue dAttrs) = do
165161 , _rangeInput_element = _inputElement_raw i
166162 }
167163
168−{-# DEPRECATED TextAreaConfig "Use 'textAreaElement' directly" #-}
164+{-# DEPRECATED TextAreaConfig, TextArea, textArea "Use 'textAreaElement' directly" #-}
169165data TextAreaConfig t
170166 = TextAreaConfig { _textAreaConfig_initialValue :: Text
171167 , _textAreaConfig_setValue :: Event t Text
@@ -179,7 +175,6 @@ instance Reflex t => Default (TextAreaConfig t) where
179175 , _textAreaConfig_attributes = constDyn mempty
180176 }
181177
182−{-# DEPRECATED TextArea "Use 'textAreaElement' directly" #-}
183178data TextArea t
184179 = TextArea { _textArea_value :: Dynamic t Text
185180 , _textArea_input :: Event t Text
@@ -188,7 +183,6 @@ data TextArea t
188183 , _textArea_element :: HTMLTextAreaElement
189184 }
190185
191−{-# DEPRECATED textArea "Use 'textAreaElement' directly" #-}
192186{-# INLINABLE textArea #-}
193187textArea :: (DomBuilder t m, PostBuild t m, DomBuilderSpace m ~ GhcjsDomSpace) => TextAreaConfig t -> m (TextArea t)
194188textArea (TextAreaConfig initial eSet attrs) = do
@@ -205,7 +199,7 @@ textArea (TextAreaConfig initial eSet attrs) = do
205199 , _textArea_element = _textAreaElement_raw i
206200 }
207201
208−{-# DEPRECATED CheckboxConfig "Use 'inputElement' directly" #-}
202+{-# DEPRECATED CheckboxConfig, Checkbox, checkbox, checkboxView, CheckboxViewEventResultType, regularToCheckboxViewEventType, CheckboxViewEventResult "Use 'inputElement' directly" #-}
209203data CheckboxConfig t
210204 = CheckboxConfig { _checkboxConfig_setValue :: Event t Bool
211205 , _checkboxConfig_attributes :: Dynamic t (Map Text Text)
@@ -217,13 +211,11 @@ instance Reflex t => Default (CheckboxConfig t) where
217211 , _checkboxConfig_attributes = constDyn mempty
218212 }
219213
220−{-# DEPRECATED Checkbox "Use 'inputElement' directly" #-}
221214data Checkbox t
222215 = Checkbox { _checkbox_value :: Dynamic t Bool
223216 , _checkbox_change :: Event t Bool
224217 }
225218
226−{-# DEPRECATED checkbox "Use 'inputElement' directly" #-}
227219-- | Create an editable checkbox
228220-- Note: if the "type" or "checked" attributes are provided as attributes, they will be ignored
229221{-# INLINABLE checkbox #-}
@@ -242,12 +234,10 @@ checkbox checked config = do
242234 , _checkbox_change = _inputElement_checkedChange i
243235 }
244236
245−{-# DEPRECATED CheckboxViewEventResultType "Use 'inputElement' directly" #-}
246237type family CheckboxViewEventResultType (en :: EventTag) :: * where
247238 CheckboxViewEventResultType 'ClickTag = Bool
248239 CheckboxViewEventResultType t = EventResultType t
249240
250−{-# DEPRECATED regularToCheckboxViewEventType "Use 'inputElement' directly" #-}
251241regularToCheckboxViewEventType :: EventName t -> EventResultType t -> CheckboxViewEventResultType t
252242regularToCheckboxViewEventType en r = case en of
253243 Click -> error "regularToCheckboxViewEventType: EventName Click should never be encountered"
@@ -297,10 +287,8 @@ regularToCheckboxViewEventType en r = case en of
297287 Touchend -> r
298288 Touchcancel -> r
299289
300−{-# DEPRECATED CheckboxViewEventResult "Use 'inputElement' directly" #-}
301290newtype CheckboxViewEventResult en = CheckboxViewEventResult { unCheckboxViewEventResult :: CheckboxViewEventResultType en }
302291
303−{-# DEPRECATED checkboxView "Use 'inputElement' directly" #-}
304292--TODO
305293{-# INLINABLE checkboxView #-}
306294checkboxView :: forall t m. (DomBuilder t m, DomBuilderSpace m ~ GhcjsDomSpace, PostBuild t m, MonadHold t m) => Dynamic t (Map Text Text) -> Dynamic t Bool -> m (Event t Bool)
@@ -335,13 +323,12 @@ checkboxView dAttrs dValue = do
335323 i <- inputElement inputElementConfig
336324 return $ unCheckboxViewEventResult <$> select (_element_events $ _inputElement_element i) (WrapArg Click)
337325
338−{-# DEPRECATED FileInput "Use 'inputElement' directly" #-}
326+{-# DEPRECATED FileInput, FileInputConfig, fileInput "Use 'inputElement' directly" #-}
339327data FileInput d t
340328 = FileInput { _fileInput_value :: Dynamic t [File]
341329 , _fileInput_element :: RawInputElement d
342330 }
343331
344−{-# DEPRECATED FileInputConfig "Use 'inputElement' directly" #-}
345332newtype FileInputConfig t
346333 = FileInputConfig { _fileInputConfig_attributes :: Dynamic t (Map Text Text)
347334 }
@@ -350,7 +337,6 @@ instance Reflex t => Default (FileInputConfig t) where
350337 def = FileInputConfig { _fileInputConfig_attributes = constDyn mempty
351338 }
352339
353−{-# DEPRECATED fileInput "Use 'inputElement' directly" #-}
354340fileInput :: forall t m. (MonadIO m, MonadJSM m, MonadFix m, MonadHold t m, TriggerEvent t m, DomBuilder t m, PostBuild t m, DomBuilderSpace m ~ GhcjsDomSpace)
355341 => FileInputConfig t -> m (FileInput (DomBuilderSpace m) t)
356342fileInput config = do