Explicit filesystem permissions required

test/Spec.hs

@@ -8,7 +8,7 @@ import REPL
 import Research
 import Wire
 import ContentStore
-import IODriver
+import IODriver (IOPermissions(..), checkIOSentinel, runIO, unsafePerms)
 
 import Control.Exception      (evaluate, try, SomeException)
 import Control.Monad         (forM_)
@@ -1307,6 +1307,6 @@ runIOSource source = do
   ioEnv <- evaluateFile "./lib/io.tri"
   env <- evalTricuWithStore Nothing ioEnv (parseTricu source)
   case checkIOSentinel (mainResult env) of
-    Right (1, action) -> runIO defaultPerms action
+    Right (1, action) -> runIO unsafePerms action
     Right (v, _)      -> assertFailure ("Unsupported IO ABI version: " ++ show v)
     Left err          -> assertFailure ("Expected IO sentinel: " ++ err)