Add Tauri.Dialog module

src/Tauri/Dialog.js

@@ -0,0 +1 @@
+exports.dialog = require("tauri/api/dialog");

src/Tauri/Dialog.purs

@@ -0,0 +1,21 @@
+module Tauri.Dialog
+  ( OpenDialogOptions
+  , open
+  ) where
+
+import Prelude
+
+import Control.Promise (Promise, toAffE)
+import Effect.Aff (Aff)
+import Effect.Uncurried (EffectFn1, runEffectFn1)
+
+type OpenDialogOptions =
+  { directory :: Boolean
+  }
+
+foreign import dialog ::
+  { open :: EffectFn1 OpenDialogOptions (Promise String)
+  }
+
+open :: OpenDialogOptions -> Aff String
+open opts = toAffE $ runEffectFn1 dialog.open opts

src/Tauri/FS.js

@@ -1 +1 @@
-exports.unsafeRequireFS = require("tauri/api/fs");
+exports.fs = require("tauri/api/fs");

src/Tauri/FS.purs

@@ -76,15 +76,12 @@ type FileEntry =
 
 type FilePath = String
 
-foreign import unsafeRequireFS :: forall r. Record r
-
-fs ::
+foreign import fs ::
   { readTextFile :: EffectFn2 FilePath Json (Promise String)
   , writeFile :: EffectFn2 FsTextFileOption Json (Promise Unit)
   , readDir :: EffectFn2 FilePath Json (Promise Json)
   , createDir :: EffectFn2 FilePath Json (Promise Unit)
   }
-fs = unsafeRequireFS
 
 readTextFile :: FilePath -> FsOptions -> Aff String
 readTextFile path opts = toAffE $ runEffectFn2 fs.readTextFile path (encodeJson opts)