Merge pull request #9 from slamdata/fix-syntax

Fix syntax that will be an error in PS 0.13
slamdata · May 6, 2019 · 1fb7ef4 · 1fb7ef4
2 parents d17e80a + 411ab7b
commit 1fb7ef4
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Lunapark/API.purs b/src/Lunapark/API.purs
@@ -306,8 +306,7 @@ handleLunapark inp = case _ of
     R.liftEffect $ Ref.write ts inp.timeoutsRef
     tryAndCache "set timeouts"
       [ void $ post (inSession : LP.Timeouts : Nil) (LT.encodeTimeouts ts)
-      , do T.for_ (LT.encodeLegacyTimeouts ts) \j →
-           void $ post (inSession : LP.Timeouts : Nil) j
+      , T.for_ (LT.encodeLegacyTimeouts ts) (post (inSession : LP.Timeouts : Nil))
       ]
     pure next
   GoTo uri next → do