Fix syntax that will be an error in PS 0.13
commit411ab7b3c7b9964a5b9dc3648455446d24c6a84d
authorGary Burgess <gary.burgess@gmail.com>
dateMon 6 May 2019, 23:36 (7 years ago)
parentd17e80a
src/Lunapark/API.purs+1−2
@@ -306,8 +306,7 @@ handleLunapark inp = case _ of
306306 R.liftEffect $ Ref.write ts inp.timeoutsRef
307307 tryAndCache "set timeouts"
308308 [ void $ post (inSession : LP.Timeouts : Nil) (LT.encodeTimeouts ts)
309− , do T.for_ (LT.encodeLegacyTimeouts ts) \j →
310− void $ post (inSession : LP.Timeouts : Nil) j
309+ , T.for_ (LT.encodeLegacyTimeouts ts) (post (inSession : LP.Timeouts : Nil))
311310 ]
312311 pure next
313312 GoTo uri next → do