diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang/translation.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation.lux b/new-luxc/source/luxc/lang/translation.lux index cd9214885..4cab6d682 100644 --- a/new-luxc/source/luxc/lang/translation.lux +++ b/new-luxc/source/luxc/lang/translation.lux @@ -67,7 +67,7 @@ (wrap [annsI (:! Code annsV)]))) (def: (switch-compiler new-compiler) - (-> Compiler (Meta Aliases)) + (-> Lux (Meta Aliases)) (function (_ old-compiler) ((do macro.Monad<Meta> [this macro.current-module] @@ -75,7 +75,7 @@ new-compiler))) (def: #export (translate translate-module aliases code) - (-> (-> Text Compiler (Process Compiler)) Aliases Code (Meta Aliases)) + (-> (-> Text Lux (Process Lux)) Aliases Code (Meta Aliases)) (case code (^code ("lux module" (~ annsC))) (do macro.Monad<Meta> @@ -184,7 +184,7 @@ (def: no-aliases Aliases (dict.new text.Hash<Text>)) (def: #export (translate-module source-dirs target-dir module-name compiler) - (-> (List File) File Text Compiler (Process Compiler)) + (-> (List File) File Text Lux (Process Lux)) (do io.Monad<Process> [[file-name file-content] (&io.read source-dirs module-name) #let [module-hash (text/hash file-content) @@ -241,7 +241,7 @@ )) (def: (initialize sources target) - (-> (List File) File (Process Compiler)) + (-> (List File) File (Process Lux)) (do io.Monad<Process> [compiler (case (runtimeT.translate ## (initL.compiler (io.run js.init)) (initL.compiler (io.run hostL.init-host)) |