From e73ad00f44479e3065ccf12d07ca3ae22ca1f3f0 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Tue, 6 Dec 2022 15:40:52 +0200 Subject: Remove ! from end of builtin top-level functions --- stdlib/maybe-with-unions.milch | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'stdlib/maybe-with-unions.milch') diff --git a/stdlib/maybe-with-unions.milch b/stdlib/maybe-with-unions.milch index 53a5024..8a15471 100644 --- a/stdlib/maybe-with-unions.milch +++ b/stdlib/maybe-with-unions.milch @@ -4,23 +4,23 @@ (just value) (nothing)) -(let! Maybe/map (\[f m] +(let Maybe/map (\[f m] (match (kind m) "Maybe/Just" (Maybe/just (f (Maybe/Just/get-value m))) "Maybe/Nothing" (Maybe/nothing)))) -(let! Maybe/and-then (\[f m] +(let Maybe/and-then (\[f m] (match (kind m) "Maybe/Just" (f (Maybe/Just/get-value m)) "Maybe/Nothing" (Maybe/nothing)))) ; TESTING -;; (let! print-line! (\[s] +;; (let print-line! (\[s] ;; (print! (concat s "\n")))) -;; (let! a (Maybe/just 10)) -;; (let! b (Maybe/nothing)) +;; (let a (Maybe/just 10)) +;; (let b (Maybe/nothing)) ;; (Maybe/map (+ 5) a) ;; (Maybe/map (+ 5) b) @@ -28,14 +28,14 @@ ;; (Maybe/and-then (\[n] (Maybe/just (+ n 5))) a) ;; (Maybe/and-then (\[n] (Maybe/just (+ n 5))) b) -;; (let! m (Maybe/just 10)) +;; (let m (Maybe/just 10)) ;; (match m ;; (Maybe/just _) ;; (print-line! (fmt "found just {0}!" [(Maybe/Just/get-value m)])) ;; (Maybe/nothing) ;; (print-line! "found nothing!")) -;; (let! m (Maybe/just 10)) +;; (let m (Maybe/just 10)) ;; (pipe m [ ;; (Maybe/map (+ 5)) ;; (Maybe/and-then (\[val] (Maybe/just (- val 3)))) -- cgit v1.3