aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/tool/compiler/phase.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/tool/compiler/phase.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/phase.lux b/stdlib/source/library/lux/tool/compiler/phase.lux
index 4809e8ed9..a54785eed 100644
--- a/stdlib/source/library/lux/tool/compiler/phase.lux
+++ b/stdlib/source/library/lux/tool/compiler/phase.lux
@@ -53,13 +53,13 @@
(All (_ s o)
(Operation s s))
(function (_ state)
- {#try.Success [state state]}))
+ {try.#Success [state state]}))
(def: .public (set_state state)
(All (_ s o)
(-> s (Operation s Any)))
(function (_ _)
- {#try.Success [state []]}))
+ {try.#Success [state []]}))
(def: .public (sub [get set] operation)
(All (_ s s' o)
@@ -73,7 +73,7 @@
(def: .public failure
(-> Text Operation)
- (|>> #try.Failure (state.lifted try.monad)))
+ (|>> {try.#Failure} (state.lifted try.monad)))
(def: .public (except exception parameters)
(All (_ e) (-> (Exception e) e Operation))
@@ -94,7 +94,7 @@
(def: .public identity
(All (_ s a) (Phase s a a))
(function (_ archive input state)
- {#try.Success [state input]}))
+ {try.#Success [state input]}))
(def: .public (composite pre post)
(All (_ s0 s1 i t o)