diff options
| author | Eduardo Julian | 2017-05-07 14:30:48 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-05-07 14:30:48 -0400 |
| commit | db697bb636e2341d26bb188cc1b9981a1ab505d7 (patch) | |
| tree | a1de1c7b0e48df4496e0e9183f485de7c341286c /new-luxc/source/luxc/io.jvm.lux | |
| parent | 4744552df1f1285d600a13ed0a3cf8be2f336030 (diff) | |
- Changed the name of "let%" to "with-expansions".
Diffstat (limited to 'new-luxc/source/luxc/io.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/io.jvm.lux | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/new-luxc/source/luxc/io.jvm.lux b/new-luxc/source/luxc/io.jvm.lux index ab62b8f43..18142e77a 100644 --- a/new-luxc/source/luxc/io.jvm.lux +++ b/new-luxc/source/luxc/io.jvm.lux @@ -67,24 +67,25 @@ (-> (List &;Path) Text (P;Promise (E;Error [&;Path Text]))) (let [host-path (format module-name host-extension ".lux") lux-path (format module-name ".lux")] - (let% [<tries> (do-template [<path>] - [(do P;Monad<Promise> - [?file (find-in-sources <path> source-dirs)]) - (case ?file - (#;Some file) - (do @ - [?code (read-source-code file)] - (case ?code - (#E;Error error) - (wrap (#E;Error error)) - - (#E;Success code) - (wrap (#E;Success [<path> code])))) - - #;None)] - - [host-path] - [lux-path])] + (with-expansions + [<tries> (do-template [<path>] + [(do P;Monad<Promise> + [?file (find-in-sources <path> source-dirs)]) + (case ?file + (#;Some file) + (do @ + [?code (read-source-code file)] + (case ?code + (#E;Error error) + (wrap (#E;Error error)) + + (#E;Success code) + (wrap (#E;Success [<path> code])))) + + #;None)] + + [host-path] + [lux-path])] (<| <tries> (wrap (#E;Error (format "Module cannot be found: " module-name))))))) |