From 0f06e0a5775a3588b7b6f35e975d39b2724a6f65 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 3 Feb 2019 02:17:42 -0400
Subject: Added "forge" and "use" functions for working with capabilities.

---
 stdlib/test/test/lux/host/jvm.jvm.lux | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'stdlib/test')

diff --git a/stdlib/test/test/lux/host/jvm.jvm.lux b/stdlib/test/test/lux/host/jvm.jvm.lux
index 2f5142e80..70a8c3da5 100644
--- a/stdlib/test/test/lux/host/jvm.jvm.lux
+++ b/stdlib/test/test/lux/host/jvm.jvm.lux
@@ -3,7 +3,9 @@
    [control
     [monad (#+ do)]
     [concurrency
-     ["." atom]]]
+     ["." atom]]
+    [security
+     ["!" capability]]]
    [data
     ["." error (#+ Error)]
     ["." text
@@ -38,7 +40,7 @@
       [outcome (do (error.ErrorT @)
                  [file (: (IO (Error (File IO)))
                           (file.get-file io.Monad<IO> file.System<IO> file-path))]
-                 (:: file over-write bytecode))]
+                 (!.use (:: file over-write) bytecode))]
       (wrap (case outcome
               (#error.Success definition)
               (format "Wrote: " (%t file-path))
-- 
cgit v1.2.3