aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/annotation.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/annotation.lux16
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/meta/annotation.lux b/stdlib/source/library/lux/meta/annotation.lux
index 27512d5f6..a9892473f 100644
--- a/stdlib/source/library/lux/meta/annotation.lux
+++ b/stdlib/source/library/lux/meta/annotation.lux
@@ -61,7 +61,7 @@
(def: #export (flagged? flag)
(-> Name Annotation Bit)
- (|>> (..bit flag) (maybe.default false)))
+ (|>> (..bit flag) (maybe.else false)))
(template [<name> <tag>]
[(def: #export <name>
@@ -69,7 +69,7 @@
(..flagged? (name_of <tag>)))]
[implementation? #.implementation?]
- [recursive_type? #.type-rec?]
+ [recursive_type? #.type_rec?]
[signature? #.sig?]
)
@@ -85,11 +85,11 @@
(template [<name> <tag>]
[(def: #export (<name> ann)
(-> Annotation (List Text))
- (maybe.default (list)
- (do {! maybe.monad}
- [args (..tuple (name_of <tag>) ann)]
- (monad.map ! ..text_parser args))))]
+ (<| (maybe.else (list))
+ (do {! maybe.monad}
+ [args (..tuple (name_of <tag>) ann)]
+ (monad.map ! ..text_parser args))))]
- [function_arguments #.func-args]
- [type_arguments #.type-args]
+ [function_arguments #.func_args]
+ [type_arguments #.type_args]
)