diff options
Diffstat (limited to 'stdlib/source/program/aedifex/project.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/project.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/project.lux b/stdlib/source/program/aedifex/project.lux index d845ed689..9d3574bd1 100644 --- a/stdlib/source/program/aedifex/project.lux +++ b/stdlib/source/program/aedifex/project.lux @@ -57,19 +57,19 @@ (case (list.find (set.member? lineage) (get@ #//.parents profile)) (#.Some ouroboros) - (exception.throw ..circular_dependency [ouroboros name]) + (exception.except ..circular_dependency [ouroboros name]) #.None (do {! try.monad} [parents (monad.map ! (profile' (set.add name lineage) project) (get@ #//.parents profile))] - (wrap (list\fold (function (_ parent child) - (\ //.monoid compose child parent)) - (set@ #//.parents (list) profile) - parents)))) + (in (list\fold (function (_ parent child) + (\ //.monoid compose child parent)) + (set@ #//.parents (list) profile) + parents)))) #.None - (exception.throw ..unknown_profile [name]))) + (exception.except ..unknown_profile [name]))) (def: #export (profile name project) (-> Name Project (Try Profile)) |