ilyakooo0/reflex-dom
1
0
Fork 0
mirror of https://github.com/ilyakooo0/reflex-dom.git synced 2024-09-11 06:35:30 +03:00
Code Issues Projects Releases Wiki Activity

Fix hlint nitpicks

Browse Source
This commit is contained in:
Tom Smalley 2020-07-10 21:09:34 +01:00
parent 8d034f2dfb
commit 33eb24e961
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
reflex-dom-core/src/Reflex/Dom/Builder/Static.hs
View File

@ -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 ()

2
reflex-dom-core/test/hydration.hs
View File

@ -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"