aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/world/file
diff options
context:
space:
mode:
authorEduardo Julian2021-09-10 03:09:37 -0400
committerEduardo Julian2021-09-10 03:09:37 -0400
commit343fda007c09deb70917a4afda19891cacf54504 (patch)
treec20fab9561daf8753750b75c1cb81a9fdc50e044 /stdlib/source/library/lux/world/file
parentf71ec9cb4ead1e7f9573a37686c87e6a9206a415 (diff)
Undid the foolish re-design of "abstract:" and "actor:".
Diffstat (limited to 'stdlib/source/library/lux/world/file')
-rw-r--r--stdlib/source/library/lux/world/file/watch.lux82
1 files changed, 41 insertions, 41 deletions
diff --git a/stdlib/source/library/lux/world/file/watch.lux b/stdlib/source/library/lux/world/file/watch.lux
index e014fc157..51ac92a90 100644
--- a/stdlib/source/library/lux/world/file/watch.lux
+++ b/stdlib/source/library/lux/world/file/watch.lux
@@ -38,47 +38,47 @@
#modification Bit
#deletion Bit])
- [(def: none
- Concern
- (:abstraction
- [#creation false
- #modification false
- #deletion false]))
-
- (template [<concern> <predicate> <event> <create> <modify> <delete>]
- [(def: .public <concern>
- Concern
- (:abstraction
- [#creation <create>
- #modification <modify>
- #deletion <delete>]))
-
- (def: .public <predicate>
- (Predicate Concern)
- (|>> :representation (value@ <event>)))]
-
- [creation creation? #creation
- true false false]
- [modification modification? #modification
- false true false]
- [deletion deletion? #deletion
- false false true]
- )
-
- (def: .public (also left right)
- (-> Concern Concern Concern)
- (:abstraction
- [#creation (or (..creation? left) (..creation? right))
- #modification (or (..modification? left) (..modification? right))
- #deletion (or (..deletion? left) (..deletion? right))]))
-
- (def: .public all
- Concern
- ($_ ..also
- ..creation
- ..modification
- ..deletion
- ))]
+ (def: none
+ Concern
+ (:abstraction
+ [#creation false
+ #modification false
+ #deletion false]))
+
+ (template [<concern> <predicate> <event> <create> <modify> <delete>]
+ [(def: .public <concern>
+ Concern
+ (:abstraction
+ [#creation <create>
+ #modification <modify>
+ #deletion <delete>]))
+
+ (def: .public <predicate>
+ (Predicate Concern)
+ (|>> :representation (value@ <event>)))]
+
+ [creation creation? #creation
+ true false false]
+ [modification modification? #modification
+ false true false]
+ [deletion deletion? #deletion
+ false false true]
+ )
+
+ (def: .public (also left right)
+ (-> Concern Concern Concern)
+ (:abstraction
+ [#creation (or (..creation? left) (..creation? right))
+ #modification (or (..modification? left) (..modification? right))
+ #deletion (or (..deletion? left) (..deletion? right))]))
+
+ (def: .public all
+ Concern
+ ($_ ..also
+ ..creation
+ ..modification
+ ..deletion
+ ))
)
(type: .public (Watcher !)