From: jsimomaa <jani.simomaa@gmail.com>
Date: Sat, 10 Feb 2018 15:08:35 +0000 (+0200)
Subject: Modify createTempFile to make files to $TEMP by default
X-Git-Tag: v1.43.0~136^2~594
X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=commitdiff_plain;h=5d9fc12394233b008d38f43105d971a6ab8dfae6;p=simantics%2Fplatform.git

Modify createTempFile to make files to $TEMP by default

refs #7761

Change-Id: I834187ce78d2c23d9a92ddb77e9a5257b826910f
---

diff --git a/bundles/org.simantics.scl.runtime/scl/Files.scl b/bundles/org.simantics.scl.runtime/scl/Files.scl
index 92fb8c528..069076fef 100644
--- a/bundles/org.simantics.scl.runtime/scl/Files.scl
+++ b/bundles/org.simantics.scl.runtime/scl/Files.scl
@@ -76,7 +76,7 @@ importJava "java.nio.file.Files" where
     createDirectoriesWithFileAttributes :: Path -> Vector FileAttribute -> <Proc, Exception> Path
 
     @JavaName createTempFile
-    createTempFileWithFileAttributes :: Path -> String -> String -> Vector FileAttribute -> <Proc, Exception> Path
+    createTempFileWithFileAttributes :: String -> String -> Vector FileAttribute -> <Proc, Exception> Path
 
     delete :: Path -> <Proc, Exception> ()
 
@@ -138,8 +138,8 @@ createDirectory path = createDirectoryWithFileAttributes path (vector [])
 createDirectories :: Path -> <Proc, Exception> Path
 createDirectories path = createDirectoriesWithFileAttributes path (vector [])
 
-createTempFile :: Path -> String -> String -> <Proc, Exception> Path
-createTempFile dir prefix suffix = createTempFileWithFileAttributes dir prefix suffix (vector [])
+createTempFile :: String -> String -> <Proc, Exception> Path
+createTempFile prefix suffix = createTempFileWithFileAttributes prefix suffix (vector [])
 
 copy :: Path -> Path -> <Proc, Exception> Path
 copy source target = copyWithCopyOptions source target (vector [])