33eb24e · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Fix hlint nitpicks

commit33eb24e9611558d6b231ac4e071964907859490e authorTom Smalley <tfsmalley@gmail.com> dateFri 10 Jul 2020, 21:09 (6 years ago) parent8d034f2

2 files changed+2−2

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Builder/Static.hs+1−1

@@ -324,7 +324,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh

324324 setUpdatedChecked updatedAttrs = case _inputElementConfig_setChecked cfg of

325325 Nothing -> updatedAttrs

326326 Just e -> (Map.singleton "checked" (Just "checked") <$ e) <> updatedAttrs

327− adjustedConfig = (_inputElementConfig_elementConfig cfg)

327+ adjustedConfig = _inputElementConfig_elementConfig cfg

328328 & elementConfig_initialAttributes %~ setInitialValue . setInitialChecked

329329 & elementConfig_modifyAttributes %~ setUpdatedValue . setUpdatedChecked

330330 (e, _result) <- element "input" adjustedConfig $ return ()

reflex-dom-core/test/hydration.hs+1−1

@@ -1760,7 +1760,7 @@ testWidgetDebug' hardFailure withDebugging beforeJS afterSwitchover bodyWidget =

17601760 ((), html) <- liftIO $ renderStatic $ runHydratableT staticApp

17611761 putStrLnDebug "rendered static"

17621762 waitBeforeJS <- liftIO newEmptyMVar -- Empty until JS should be run

1763− onFailure <- if hardFailure then (\tid -> throwTo tid HydrationFailedException) <$> liftIO myThreadId else pure $ pure ()

1763+ onFailure <- if hardFailure then (`throwTo` HydrationFailedException) <$> liftIO myThreadId else pure $ pure ()

17641764 waitUntilSwitchover <- liftIO newEmptyMVar -- Empty until switchover

17651765 let entryPoint = do

17661766 putStrLnDebug "taking waitBeforeJS"