diff options
Diffstat (limited to 'core/maybe.milch')
| -rw-r--r-- | core/maybe.milch | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/core/maybe.milch b/core/maybe.milch index 71d88e1..9c0d3ac 100644 --- a/core/maybe.milch +++ b/core/maybe.milch @@ -6,15 +6,15 @@ (let Maybe/map (\[f m] (match (kind m) - "Maybe/Just" (Maybe/just (f (Maybe/Just/get-value m))) - "Maybe/Nothing" (Maybe/nothing)))) + :Maybe/Just (Maybe/just (f (Maybe/Just/get-value m))) + :Maybe/Nothing (Maybe/nothing)))) (let Maybe/and-then (\[f m] (match (kind m) - "Maybe/Just" (f (Maybe/Just/get-value m)) - "Maybe/Nothing" (Maybe/nothing)))) + :Maybe/Just (f (Maybe/Just/get-value m)) + :Maybe/Nothing (Maybe/nothing)))) (let Maybe/default (\[default m] (match (kind m) - "Maybe/Just" (Maybe/Just/get-value m) - "Result/Ex" default))) + :Maybe/Just (Maybe/Just/get-value m) + :Result/Ex default))) |