From: Alpi Rimppi <alpi.rimppi@semantum.fi>
Date: Tue, 27 Aug 2019 08:09:16 +0000 (+0300)
Subject: Made orElseM associative
X-Git-Tag: v1.43.0~136^2~89
X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=commitdiff_plain;h=9a84d1d757f513d7b831140a40fc1905a843f3ef

Made orElseM associative

gitlab #368

Change-Id: Ideb97278b16455f0bf2d130547cf1c8713897686
---

diff --git a/bundles/org.simantics.scl.runtime/scl/Prelude.scl b/bundles/org.simantics.scl.runtime/scl/Prelude.scl
index f98325109..86d13fb66 100644
--- a/bundles/org.simantics.scl.runtime/scl/Prelude.scl
+++ b/bundles/org.simantics.scl.runtime/scl/Prelude.scl
@@ -75,7 +75,7 @@ infixl 6  (+), (-)
 infixl 5  (\\), (<<), (<+)
 infix  4  (!=), (<), (<=), (>=), (>)
 infixr 3  (&&), (&<&)
-infixr 2  (||), orElse, morelse
+infixr 2  (||), orElse, orElseM, morelse
 infixr 1  (>>=), (>>), (:=), (>=>)
 infixr 1  ($)
 infixl 1  catch