Experiments with writing files from android

more progress needs some way to request for permissions at runtime see reflex-frp/reflex-platform#524
nomeata · Sep 7, 2019 · a343236 · a343236
1 parent e82bb6f
commit a343236
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 0 deletions.
diff --git a/default.nix b/default.nix
@@ -42,6 +42,9 @@ let
     executableName = "kaleidogen-android-clib";
     applicationId = "de.nomeata.kaleidogen";
     displayName = "Kaleidogen";
+    permissions = ''
+      <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>
+    '';
   };
 
 

diff --git a/kaleidogen.cabal b/kaleidogen.cabal
@@ -211,6 +211,8 @@ executable kaleidogen-android-clib
   build-depends: jsaddle
   build-depends: reflex-dom
 
+  build-depends: directory
+
   if flag(android)
      build-depends: jsaddle-clib
 

diff --git a/src/CanvasSave.hs b/src/CanvasSave.hs
@@ -15,6 +15,11 @@ import Language.Javascript.JSaddle (toJSVal)
 import Language.Javascript.JSaddle.Object
 import Control.Lens ((^.))
 
+import System.Directory
+import System.IO
+import System.IO.Error
+import Control.Monad.Trans
+
 src :: BS.ByteString
 src = $(embedFile "vendor/FileSaver.1.3.8.min.js")
 
@@ -30,6 +35,9 @@ save :: MonadJSM m => T.Text -> HTMLCanvasElement -> m ()
 save name e = liftJSM $ do
     domEl <- toJSVal e
     _ <- domEl ^. js1 "toBlob" (fun $ \_ _ [blob] -> () <$ jsg2 "saveAs" blob name )
+    liftIO $ (`catchIOError` print) $
+        createDirectory "/sdcard/Kaleidogen"
+        writeFile "/sdcard/Kaleidogen/test.txt" "hi"
     return ()
 
 {-