From 2ae7dc30bf91d709a6038871e9c967dafb15cf49 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 24 Feb 2019 21:30:10 -0400 Subject: Improved the names of monad transformers. --- new-luxc/source/luxc/lang/translation/jvm.lux | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'new-luxc/source/luxc/lang') diff --git a/new-luxc/source/luxc/lang/translation/jvm.lux b/new-luxc/source/luxc/lang/translation/jvm.lux index 88e607217..5ffb60482 100644 --- a/new-luxc/source/luxc/lang/translation/jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm.lux @@ -100,14 +100,14 @@ (|>> valueI (inst.PUTSTATIC bytecode-name ..value-field ..$Object) inst.RETURN))))] - (io.run (do (error.with-error io.monad) + (io.run (do (error.with io.monad) [_ (loader.store eval-class bytecode library) class (loader.load eval-class loader)] (:: io.monad wrap (class-value eval-class class)))))) (def: (execute! library loader temp-label [class-name class-bytecode]) (-> Library ClassLoader Text Definition (Error Any)) - (io.run (do (error.with-error io.monad) + (io.run (do (error.with io.monad) [_ (loader.store class-name class-bytecode library)] (loader.load class-name loader)))) -- cgit v1.2.3