FIX typos
This commit is contained in:
parent
e3c46dc0e6
commit
8b30bc8e49
|
@ -21,6 +21,8 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'dash)
|
||||||
|
|
||||||
(defmacro either (key data)
|
(defmacro either (key data)
|
||||||
"Make an either type.
|
"Make an either type.
|
||||||
|
|
||||||
|
@ -28,7 +30,7 @@ KEY is either :left or :right and DATA is whatever goes in the
|
||||||
left/right slot."
|
left/right slot."
|
||||||
(pcase key
|
(pcase key
|
||||||
((or :left :right) `(list ,key ,data))
|
((or :left :right) `(list ,key ,data))
|
||||||
(e (error "Invalid status key: %s" key))))
|
(_ (error "Invalid status key: %s" key))))
|
||||||
|
|
||||||
(defmacro either>>= (either form)
|
(defmacro either>>= (either form)
|
||||||
"Bind EITHER to FORM where the right slot is bound to 'it'."
|
"Bind EITHER to FORM where the right slot is bound to 'it'."
|
||||||
|
|
Loading…
Reference in New Issue