diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/lang/compiler/meta/io/context.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/lang/compiler/meta/io/context.lux b/stdlib/source/lux/lang/compiler/meta/io/context.lux index d03dcbdd8..327f52cf5 100644 --- a/stdlib/source/lux/lang/compiler/meta/io/context.lux +++ b/stdlib/source/lux/lang/compiler/meta/io/context.lux @@ -1,5 +1,5 @@ (.module: - [lux #- Module] + [lux #- Module Code] (lux (control monad ["ex" exception #+ Exception exception:]) (data [error] @@ -8,9 +8,7 @@ (world [file #+ File System] [blob #+ Blob])) [/////host] - [// #+ Module]) - -(type: #export Context File) + [// #+ Context Module]) (type: #export Extension Text) @@ -72,8 +70,10 @@ #.None (try System<m> computations' exception message))))) +(type: #export Code Text) + (def: #export (read System<m> contexts name) - (All [m] (-> (System m) (List Context) Module (m [Module Text]))) + (All [m] (-> (System m) (List Context) Module (m [Text Code]))) (let [find-source' (find-source System<m> contexts name)] (do (:: System<m> &monad) [[path file] (try System<m> |