Fix hlint for RequesterT test
commitcf385c63f0385949ddcb9d7f918e97e628330417
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateFri 13 Jul 2018, 23:25 (8 years ago)
parent49752f9
test/RequesterT.hs+2−3
@@ -51,9 +51,8 @@ testOrdering :: ( Response m ~ Identity
5151 , Adjustable t m)
5252 => Event t ()
5353 -> m ()
54−testOrdering pulse = do
55− forM_ [10,9..1] $ \i -> requestingIdentity (RequestInt i <$ pulse)
56− return ()
54+testOrdering pulse = forM_ [10,9..1] $ \i ->
55+ requestingIdentity (RequestInt i <$ pulse)
5756
5857testSimultaneous :: ( Response m ~ Identity
5958 , Request m ~ RequestInt