From 5b3cb26acc141f8ec129ccc8bd087ced2f5b9dbb Mon Sep 17 00:00:00 2001 From: Tuukka Lehtonen Date: Thu, 21 Jun 2018 23:19:09 +0300 Subject: [PATCH] Inlined Prelude/maybe gitlab #31 Change-Id: I88298efc212596ad57adf468ed54b8f268050126 --- bundles/org.simantics.scl.runtime/scl/Prelude.scl | 1 + 1 file changed, 1 insertion(+) diff --git a/bundles/org.simantics.scl.runtime/scl/Prelude.scl b/bundles/org.simantics.scl.runtime/scl/Prelude.scl index 03eabb66f..80b4d0ad7 100644 --- a/bundles/org.simantics.scl.runtime/scl/Prelude.scl +++ b/bundles/org.simantics.scl.runtime/scl/Prelude.scl @@ -1292,6 +1292,7 @@ fromMaybe default maybeValue = match maybeValue with _ -> default "`maybe def f v` returns `def` if `v=Nothing` and `f x` if `v=Just x`." +@inline maybe :: b -> (a -> b) -> Maybe a -> b maybe n _ Nothing = n maybe _ f (Just x) = f x -- 2.47.1