From 411ab7b3c7b9964a5b9dc3648455446d24c6a84d Mon Sep 17 00:00:00 2001
From: Gary Burgess <gary.burgess@gmail.com>
Date: Mon, 6 May 2019 23:36:59 +0100
Subject: [PATCH] Fix syntax that will be an error in PS 0.13

---
 src/Lunapark/API.purs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Lunapark/API.purs b/src/Lunapark/API.purs
index 6c93549..de415ed 100644
--- 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