alerts

Author: functora

ghcjs/delivery-calculator/delivery-calculator.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name:          delivery-calculator
-version:       0.1.0.8
+version:       0.1.0.9
 synopsis:      Delivery Calculator
 category:      Web
 build-type:    Simple

ghcjs/delivery-calculator/src/Main.hs

@@ -41,7 +41,11 @@ main =
   withUtf8
     . runApp
     . forever
-    . handleAny (\e -> consoleLog e >> sleepSeconds 5)
+    . handleAny
+      ( \e -> do
+          alert . from @String @Unicode $ displayException e
+          sleepSeconds 5
+      )
     $ do
       uri <- URI.mkURI . inspect =<< getCurrentURI
       mSt <- unShareUri uri
@@ -194,7 +198,7 @@ updateModel (ChanUpdate update0) st0 = do
         update2 <-
           handleAny
             ( \e -> do
-                consoleLog e
+                alert . from @String @Unicode $ displayException e
                 pure $ #modelLoading .~ False
             )
             $ evalModel st2

ghcjs/delivery-calculator/trapeze.yaml

@@ -1,8 +1,8 @@
 platforms:
   android:
     appName: Delivery Calculator
-    versionCode: 8
-    versionName: 0.1.0.8
+    versionCode: 9
+    versionName: 0.1.0.9
     packageName: com.functora.delivery_calculator
     manifest:
       - file: AndroidManifest.xml

ghcjs/miso-functora/js/main.js

@@ -82,9 +82,9 @@ export async function opfsWrite(value, opfsName) {
     const stream = await handle.createWritable();
     await stream.write(value);
     await stream.close();
-    console.log("OPFS write success", opfsName, handle);
+    console.log("OPFS write success:", handle, opfsName);
   } catch (e) {
-    console.log("OPFS write failure", opfsName, e);
+    alert("OPFS write failure: " + e.toString() + " file: " + opfsName);
   }
   return null;
 }
@@ -96,10 +96,10 @@ export async function opfsRead(opfsName) {
     const file = await handle.getFile();
     const uri = await file.text();
     const res = await selectDataUrl(uri);
-    console.log("OPFS read success", opfsName, res);
+    console.log("OPFS read success:", res, opfsName);
     return res;
   } catch (e) {
-    console.log("OPFS read failure", opfsName, e);
+    alert("OPFS read failure: " + e.toString() + " file: " + opfsName);
     return null;
   }
 }
@@ -111,10 +111,10 @@ export async function opfsList() {
     for await (let opfsName of root.keys()) {
       res.push(opfsName);
     }
-    console.log("OPFS list success", opfsName, res);
+    console.log("OPFS list success:", res, opfsName);
     return res;
   } catch (e) {
-    console.log("OPFS list failure", opfsName, e);
+    alert("OPFS list failure: " + e.toString() + " file: " + opfsName);
     return [];
   }
 }

ghcjs/miso-functora/js/main.min.js

@@ -141,7 +141,7 @@ selectStorage key after =
         . Tagged @"UTF-8"
         $ encodeUtf8 @Unicode @BL.ByteString str of
         Left e -> do
-          consoleLog e
+          alert $ from @String @Unicode e
           after Nothing
         Right res ->
           after $ Just res
@@ -187,21 +187,26 @@ genericPromise ::
   JSM ()
 genericPromise fun argv after = do
   success <- JS.function $ \_ _ ->
-    handleAny (\e -> consoleLog e >> after Nothing) . \case
-      [val] -> do
-        valExist <- ghcjsPure $ JS.isTruthy val
-        if not valExist
-          then after Nothing
-          else do
-            mres <- JS.fromJSVal @res val
-            res <- maybe (throwString @String "Failure, bad result!") pure mres
-            after $ Just res
-      _ ->
-        throwString @String "Failure, bad argv!"
+    handleAny
+      ( \e -> do
+          alert . from @String @Unicode $ displayException e
+          after Nothing
+      )
+      . \case
+        [val] -> do
+          valExist <- ghcjsPure $ JS.isTruthy val
+          if not valExist
+            then after Nothing
+            else do
+              mres <- JS.fromJSVal @res val
+              res <- maybe (throwString @String "Failure, bad result!") pure mres
+              after $ Just res
+        _ ->
+          throwString @String "Failure, bad argv!"
   failure <-
     JS.function $ \_ _ e -> do
       msg <- handleAny (\_ -> pure "Unknown") $ JS.valToText e
-      consoleLog @Unicode $ "Failure, " <> inspect msg <> "!"
+      alert $ "Failure, " <> inspect msg <> "!"
       after Nothing
   pkg <- getPkg
   prom <- pkg ^. JS.jsf fun argv
@@ -248,22 +253,27 @@ saveFileThen onSuccess name mime bs = do
 fetchUrlAsRfc2397 :: Unicode -> (Maybe ByteString -> JSM ()) -> JSM ()
 fetchUrlAsRfc2397 url after = do
   success <- JS.function $ \_ _ ->
-    handleAny (\e -> consoleLog e >> after Nothing) . \case
-      [val] -> do
-        valExist <- ghcjsPure $ JS.isTruthy val
-        if not valExist
-          then after Nothing
-          else do
-            ab <- AB.freeze $ JS.pFromJSVal val
-            buf <- ghcjsPure $ Buf.createFromArrayBuffer ab
-            res <- ghcjsPure $ Buf.toByteString 0 Nothing buf
-            after $ Just res
-      _ ->
-        throwString @String "Failure, bad argv!"
+    handleAny
+      ( \e -> do
+          alert . from @String @Unicode $ displayException e
+          after Nothing
+      )
+      . \case
+        [val] -> do
+          valExist <- ghcjsPure $ JS.isTruthy val
+          if not valExist
+            then after Nothing
+            else do
+              ab <- AB.freeze $ JS.pFromJSVal val
+              buf <- ghcjsPure $ Buf.createFromArrayBuffer ab
+              res <- ghcjsPure $ Buf.toByteString 0 Nothing buf
+              after $ Just res
+        _ ->
+          throwString @String "Failure, bad argv!"
   failure <-
     JS.function $ \_ _ e -> do
       msg <- handleAny (\_ -> pure "Unknown") $ JS.valToText e
-      consoleLog @Unicode $ "Failure, " <> inspect msg <> "!"
+      alert $ "Failure, " <> inspect msg <> "!"
       after Nothing
   pkg <- getPkg
   prom <- pkg ^. JS.jsf ("fetchUrlAsRfc2397" :: Unicode) ([url] :: [Unicode])