on develop help sign in
Eliminate some commented-out code
37b94bdRyan Trinkle
src/Reflex/Dom/Builder/InputDisabled.hs−4
@@ -72,10 +72,6 @@ instance MonadAdjust t m => MonadAdjust t (InputDisabledT m) where
72
72
73instance DomBuilder t m => DomBuilder t (InputDisabledT m) where
73instance DomBuilder t m => DomBuilder t (InputDisabledT m) where
74 type DomBuilderSpace (InputDisabledT m) = DomBuilderSpace m
74 type DomBuilderSpace (InputDisabledT m) = DomBuilderSpace m
75− {-
76− placeholder cfg = lift $ placeholder $ cfg
77− & placeholderConfig_insertAbove %~ fmap runInputDisabledT
78− -}
79 inputElement cfg = lift $ inputElement $ cfg
75 inputElement cfg = lift $ inputElement $ cfg
80 { _inputElementConfig_elementConfig = liftElementConfig $ disableElementConfig $ _inputElementConfig_elementConfig cfg
76 { _inputElementConfig_elementConfig = liftElementConfig $ disableElementConfig $ _inputElementConfig_elementConfig cfg
81 }
77 }