git.iko.soy/reflex
on develop help sign in
Fix hlint for RequesterT test
cf385c6Ryan Trinkle
test/RequesterT.hs+2−3
compare with develop
unifiedsplit
@@ -51,9 +51,8 @@ testOrdering :: ( Response m ~ Identity
51 , Adjustable t m)
51 , Adjustable t m)
52 => Event t ()
52 => Event t ()
53 -> m ()
53 -> m ()
54−testOrdering pulse = do
54+testOrdering pulse = forM_ [10,9..1] $ \i ->
55− forM_ [10,9..1] $ \i -> requestingIdentity (RequestInt i <$ pulse)
55+ requestingIdentity (RequestInt i <$ pulse)
56− return ()
57
56
58testSimultaneous :: ( Response m ~ Identity
57testSimultaneous :: ( Response m ~ Identity
59 , Request m ~ RequestInt
58 , Request m ~ RequestInt