aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/platform/compiler/phase/analysis/type.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/platform/compiler/phase/analysis/type.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/platform/compiler/phase/analysis/type.lux b/stdlib/source/lux/platform/compiler/phase/analysis/type.lux
index c3219f5ac..75d691628 100644
--- a/stdlib/source/lux/platform/compiler/phase/analysis/type.lux
+++ b/stdlib/source/lux/platform/compiler/phase/analysis/type.lux
@@ -35,14 +35,14 @@
(def: #export (infer actualT)
(-> Type (Operation Any))
- (do ///.Monad<Operation>
+ (do ///.monad
[expectedT (extension.lift macro.expected-type)]
(with-env
(tc.check expectedT actualT))))
(def: #export (with-inference action)
(All [a] (-> (Operation a) (Operation [Type a])))
- (do ///.Monad<Operation>
+ (do ///.monad
[[_ varT] (..with-env
tc.var)
output (with-type varT