From e4b5016f0f18c8faadf7653a1e1a66c497ac06c8 Mon Sep 17 00:00:00 2001
From: Samuel Evans-Powell <mail@sevanspowell.net>
Date: Fri, 3 May 2024 16:09:09 +0800
Subject: [PATCH] file-reader example: Use new JS backend syntax

---
 examples/file-reader/Main.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/examples/file-reader/Main.hs b/examples/file-reader/Main.hs
index a8063fd4..c43ecaaa 100644
--- a/examples/file-reader/Main.hs
+++ b/examples/file-reader/Main.hs
@@ -12,7 +12,7 @@ import           Miso.String
 import           Control.Concurrent.MVar
 
 import GHCJS.Types
-import GHCJS.Foreign.Callback
+import GHC.JS.Foreign.Callback
 
 -- | Model
 data Model
@@ -71,17 +71,17 @@ viewModel Model {..} = view
       , div_ [] [ text info ]
       ]
 
-foreign import javascript unsafe "$r = new FileReader();"
+foreign import javascript unsafe "(() => { return new FileReader(); })"
   newReader :: IO JSVal
 
-foreign import javascript unsafe "$r = $1.files[0];"
+foreign import javascript unsafe "((x) => { return x.files[0]; })"
   getFile :: JSVal -> IO JSVal
 
-foreign import javascript unsafe "$1.onload = $2;"
+foreign import javascript unsafe "((x, y) => { x.onload = y; })"
   setOnLoad :: JSVal -> Callback (IO ()) -> IO ()
 
-foreign import javascript unsafe "$r = $1.result;"
+foreign import javascript unsafe "((x) => { return x.result; })"
   getResult :: JSVal -> IO MisoString
 
-foreign import javascript unsafe "$1.readAsText($2);"
+foreign import javascript unsafe "((x, y) => { x.readAsText(y); })"
   readText :: JSVal -> JSVal -> IO ()