diff options
Diffstat (limited to 'stdlib/source/library/lux/world/file/watch.lux')
-rw-r--r-- | stdlib/source/library/lux/world/file/watch.lux | 82 |
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 !) |