on develop help sign in
Remove unnecessary _|_ and commented code
commit3976bd2117aad5190e2db6a51775977f6956aef0 authorTom Smalley <tfsmalley@gmail.com> dateThu 13 Dec 2018, 20:21 (8 years ago) parent69fc82c
1 file changed+5−18
reflex-dom-core/src/Reflex/Dom/Builder/Hydration.hs+5−18
reflex-dom-core/src/Reflex/Dom/Builder/Hydration.hs+5−18
@@ -742,7 +742,7 @@ instance (SupportsHydrationDomBuilder t m) => DomBuilder t (HydrationDomBuilderT
742742 , _inputElement_input = valueChangedByUI
743743 , _inputElement_hasFocus = hasFocus
744744 , _inputElement_element = e
745− , _inputElement_raw = undefined -- TODO domInputElement
745+ , _inputElement_raw = ()
746746 , _inputElement_files = files
747747 }
748748
@@ -799,7 +799,7 @@ instance (SupportsHydrationDomBuilder t m) => DomBuilder t (HydrationDomBuilderT
799799 , _textAreaElement_input = valueChangedByUI
800800 , _textAreaElement_hasFocus = hasFocus
801801 , _textAreaElement_element = e
802− , _textAreaElement_raw = undefined -- TODO domTextAreaElement
802+ , _textAreaElement_raw = ()
803803 }
804804
805805 {-# INLINABLE selectElement #-}
@@ -855,24 +855,11 @@ instance (SupportsHydrationDomBuilder t m) => DomBuilder t (HydrationDomBuilderT
855855 , _selectElement_change = valueChangedByUI
856856 , _selectElement_hasFocus = hasFocus
857857 , _selectElement_element = e
858− , _selectElement_raw = undefined -- TODO domSelectElement
858+ , _selectElement_raw = ()
859859 }
860860
861− placeRawElement () = pure () -- TODO
862−-- placeRawElement e = getHydrationMode >>= \case
863−-- HydrationMode_Immediate -> append $ toNode e
864−-- HydrationMode_Hydrating -> addHydrationStep $ insertAfterPreviousNode e
865− wrapRawElement () _cfg = pure $ Element (EventSelector $ const never) () -- TODO
866−-- wrapRawElement e rawCfg = do
867−-- ctx <- askJSM
868−-- events <- askEvents
869−-- let cfg = (def :: ElementConfig EventResult t HydrationDomSpace)
870−-- { _elementConfig_modifyAttributes = _rawElementConfig_modifyAttributes rawCfg
871−-- , _elementConfig_eventSpec = _rawElementConfig_eventSpec rawCfg
872−-- }
873−-- eventTriggerRefs <- wrap events e rawCfg
874−-- es <- newFanEventWithTrigger $ triggerBody ctx cfg events eventTriggerRefs e
875−-- return $ Element es e
861+ placeRawElement () = pure ()
862+ wrapRawElement () _cfg = pure $ Element (EventSelector $ const never) ()
876863
877864data FragmentState
878865 = FragmentState_Unmounted