mirror of
https://github.com/ilyakooo0/reflex-dom.git
synced 2024-09-11 06:35:30 +03:00
Fix hlint nitpicks
This commit is contained in:
parent
8d034f2dfb
commit
33eb24e961
@ -324,7 +324,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
|
||||
setUpdatedChecked updatedAttrs = case _inputElementConfig_setChecked cfg of
|
||||
Nothing -> updatedAttrs
|
||||
Just e -> (Map.singleton "checked" (Just "checked") <$ e) <> updatedAttrs
|
||||
adjustedConfig = (_inputElementConfig_elementConfig cfg)
|
||||
adjustedConfig = _inputElementConfig_elementConfig cfg
|
||||
& elementConfig_initialAttributes %~ setInitialValue . setInitialChecked
|
||||
& elementConfig_modifyAttributes %~ setUpdatedValue . setUpdatedChecked
|
||||
(e, _result) <- element "input" adjustedConfig $ return ()
|
||||
|
@ -1760,7 +1760,7 @@ testWidgetDebug' hardFailure withDebugging beforeJS afterSwitchover bodyWidget =
|
||||
((), html) <- liftIO $ renderStatic $ runHydratableT staticApp
|
||||
putStrLnDebug "rendered static"
|
||||
waitBeforeJS <- liftIO newEmptyMVar -- Empty until JS should be run
|
||||
onFailure <- if hardFailure then (\tid -> throwTo tid HydrationFailedException) <$> liftIO myThreadId else pure $ pure ()
|
||||
onFailure <- if hardFailure then (`throwTo` HydrationFailedException) <$> liftIO myThreadId else pure $ pure ()
|
||||
waitUntilSwitchover <- liftIO newEmptyMVar -- Empty until switchover
|
||||
let entryPoint = do
|
||||
putStrLnDebug "taking waitBeforeJS"
|
||||
|
Loading…
Reference in New Issue
Block a user