diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/command.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 4 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 24 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 4 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 4 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/deps.lux | 2 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/install.lux | 6 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/pom.lux | 4 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/test.lux | 8 | ||||
-rw-r--r-- | stdlib/source/program/aedifex/command/version.lux | 2 |
10 files changed, 30 insertions, 30 deletions
diff --git a/stdlib/source/program/aedifex/command.lux b/stdlib/source/program/aedifex/command.lux index c8f8106b4..f918733c1 100644 --- a/stdlib/source/program/aedifex/command.lux +++ b/stdlib/source/program/aedifex/command.lux @@ -5,5 +5,5 @@ ["#" profile] ["#." action (#+ Action)]]) -(type: #export (Command a) +(type: .public (Command a) (-> //.Profile (Action a))) diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux index f4e2ab18f..2c4c8ac19 100644 --- a/stdlib/source/program/aedifex/command/auto.lux +++ b/stdlib/source/program/aedifex/command/auto.lux @@ -35,7 +35,7 @@ (\ ! join) (\ ! map (|>> list.concat (list& path)))))) -(def: #export delay +(def: .public delay Nat 1,000) @@ -43,7 +43,7 @@ (-> Nat (Async (Try Any))) (async.delay delay (#try.Success []))) -(def: #export (do! delay watcher command) +(def: .public (do! delay watcher command) (All [a] (-> Nat (Watcher Async) (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit a])) diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux index 23429f123..ff7825678 100644 --- a/stdlib/source/program/aedifex/command/build.lux +++ b/stdlib/source/program/aedifex/command/build.lux @@ -55,12 +55,12 @@ (#.Some dependency) #.None))))) -(def: #export lux_group +(def: .public lux_group Group "com.github.luxlang") (template [<dependency> <definition>] - [(def: #export <definition> + [(def: .public <definition> Name <dependency>)] @@ -71,10 +71,10 @@ ["lux-ruby" ruby_compiler_name] ) -(exception: #export no_available_compiler) -(exception: #export no_specified_program) +(exception: .public no_available_compiler) +(exception: .public no_specified_program) -(type: #export Compiler +(type: .public Compiler (#JVM Dependency) (#JS Dependency) (#Python Dependency) @@ -154,7 +154,7 @@ [#.End #.End] false)))) -(def: #export (host_dependencies fs home) +(def: .public (host_dependencies fs home) (All [!] (-> (file.System !) Path Resolution (List Path))) (|>> dictionary.keys (list.only (|>> (get@ #///dependency.type) @@ -186,12 +186,12 @@ (-> Text (List Text) (List Text)) (|>> (list\map (|>> (list name))) list.concat)) -(def: #export start "[BUILD STARTED]") -(def: #export success "[BUILD ENDED]") -(def: #export failure "[BUILD FAILED]") +(def: .public start "[BUILD STARTED]") +(def: .public success "[BUILD ENDED]") +(def: .public failure "[BUILD FAILED]") (template [<name> <capability>] - [(def: #export (<name> console process) + [(def: .public (<name> console process) (-> (Console Async) (Process Async) (Async (Try Any))) ## This is a very odd way of implementing this function. ## But it's written this way because the more straightforward way (i.e. by using (try.with async.monad)) @@ -249,7 +249,7 @@ (text.join_with ..jvm_class_path_separator) %.text)) -(def: #export (with_jvm_class_path host_dependencies runtime) +(def: .public (with_jvm_class_path host_dependencies runtime) (-> (List Path) ///runtime.Runtime ///runtime.Runtime) (case host_dependencies #.End @@ -260,7 +260,7 @@ (|>> (list& "-classpath" (..jvm_class_path host_dependencies))) runtime))) -(def: #export (do! console program fs shell resolution) +(def: .public (do! console program fs shell resolution) (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Compiler Path])) (function (_ profile) (let [target (get@ #///.target profile)] diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux index c03a09b49..67d539db7 100644 --- a/stdlib/source/program/aedifex/command/clean.lux +++ b/stdlib/source/program/aedifex/command/clean.lux @@ -26,11 +26,11 @@ (\ ! map (monad.map ! (\ fs delete))) (\ ! join)))) -(def: #export success +(def: .public success (-> ///.Target Text) (|>> (format "Successfully cleaned target directory: "))) -(def: #export (do! console fs profile) +(def: .public (do! console fs profile) (-> (Console Async) (file.System Async) (Command Any)) (do {! async.monad} [.let [target (get@ #///.target profile)] diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index b7b08f517..2ff5ca8fb 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -53,10 +53,10 @@ ["#/." extension (#+ Extension)] ["#/." type]]]]) -(def: #export success +(def: .public success "Successfully deployed the project.") -(def: #export (do! console repository fs artifact profile) +(def: .public (do! console repository fs artifact profile) (-> (Console Async) (Repository Async) (file.System Async) Artifact (Command Any)) (do {! ///action.monad} [library (|> profile diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux index 342c9c0bc..9dbabbfca 100644 --- a/stdlib/source/program/aedifex/command/deps.lux +++ b/stdlib/source/program/aedifex/command/deps.lux @@ -37,7 +37,7 @@ ///artifact.format %.text)) -(def: #export (do! console local remotes new_repository profile) +(def: .public (do! console local remotes new_repository profile) (-> (Console Async) (Repository Async) (List (Repository Async)) (-> URL (Repository Async)) (Command Resolution)) (do async.monad [.let [dependencies (|> (get@ #///.dependencies profile) diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux index b39b30f85..c86400b6a 100644 --- a/stdlib/source/program/aedifex/command/install.lux +++ b/stdlib/source/program/aedifex/command/install.lux @@ -43,13 +43,13 @@ ["#." artifact (#+ Artifact) ["#/." type]]]]) -(def: #export success +(def: .public success "Successfully installed the project locally.") -(def: #export failure +(def: .public failure "Failure: No 'identity' defined for the project.") -(def: #export (do! console fs repository profile) +(def: .public (do! console fs repository profile) (-> (Console Async) (file.System Async) (Repository Async) (Command Any)) (case (get@ #/.identity profile) (#.Some identity) diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux index 3b6412070..163fa87fa 100644 --- a/stdlib/source/program/aedifex/command/pom.lux +++ b/stdlib/source/program/aedifex/command/pom.lux @@ -22,10 +22,10 @@ ["#." action] ["#." pom]]) -(def: #export success +(def: .public success (format "Successfully created POM file: " ///pom.file)) -(def: #export (do! console fs profile) +(def: .public (do! console fs profile) (-> (Console Async) (file.System Async) (Command Any)) (do ///action.monad [content (|> (///pom.write profile) diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux index 78859819d..a7279c5ec 100644 --- a/stdlib/source/program/aedifex/command/test.lux +++ b/stdlib/source/program/aedifex/command/test.lux @@ -24,11 +24,11 @@ [dependency [resolution (#+ Resolution)]]]]) -(def: #export start "[TEST STARTED]") -(def: #export success "[TEST ENDED]") -(def: #export failure "[TEST FAILED]") +(def: .public start "[TEST STARTED]") +(def: .public success "[TEST ENDED]") +(def: .public failure "[TEST FAILED]") -(def: #export (do! console program fs shell resolution profile) +(def: .public (do! console program fs shell resolution profile) (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Any])) (do async.monad [environment (program.environment async.monad program) diff --git a/stdlib/source/program/aedifex/command/version.lux b/stdlib/source/program/aedifex/command/version.lux index 0c5c944b5..d66738f11 100644 --- a/stdlib/source/program/aedifex/command/version.lux +++ b/stdlib/source/program/aedifex/command/version.lux @@ -15,7 +15,7 @@ [/// [command (#+ Command)]]) -(def: #export (do! console profile) +(def: .public (do! console profile) (-> (Console Async) (Command Any)) (console.write_line (version.format language/lux.version) console)) |