diff options
Diffstat (limited to 'stdlib/source/library/lux/abstract/monad.lux')
-rw-r--r-- | stdlib/source/library/lux/abstract/monad.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/library/lux/abstract/monad.lux b/stdlib/source/library/lux/abstract/monad.lux index 33faf1290..71f981b3e 100644 --- a/stdlib/source/library/lux/abstract/monad.lux +++ b/stdlib/source/library/lux/abstract/monad.lux @@ -58,10 +58,10 @@ (macro (_ tokens state) (case (is (Maybe [(Maybe Text) Code (List Code) Code]) (case tokens - (pattern (list [_ {.#Tuple (list [_ {.#Symbol ["" name]}] monad)}] [_ {.#Tuple bindings}] body)) + (list [_ {.#Tuple (list [_ {.#Symbol ["" name]}] monad)}] [_ {.#Tuple bindings}] body) {.#Some [{.#Some name} monad bindings body]} - (pattern (list monad [_ {.#Tuple bindings}] body)) + (list monad [_ {.#Tuple bindings}] body) {.#Some [{.#None} monad bindings body]} _ |