Bump flake, use LambdaCase, newFileReader

cabal.project

@@ -9,4 +9,4 @@ flags: +template-haskell
 source-repository-package
   type: git
   location: https://github.com/dmjio/miso
-  tag: 8c4b85e6e1279bec9b66859c54f25209701b8153
+  tag: d75ab7cbe3e2f8b0ea0294a57ee8dc3bdd9389ac

src/Main.hs

@@ -1,6 +1,7 @@
 -----------------------------------------------------------------------------
 {-# LANGUAGE CPP               #-}
 {-# LANGUAGE DataKinds         #-}
+{-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE RecordWildCards   #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE MultilineStrings  #-}
@@ -23,9 +24,12 @@ import           Prelude hiding ((!!), null, unlines)
 ----------------------------------------------------------------------------
 import           Miso hiding ((<#))
 import qualified Miso as M
+import qualified Miso.Html.Property as M
+import qualified Miso.Html.Element as M
+import qualified Miso.Html.Event as M
 import           Miso.Lens ((.=), Lens, lens)
 import           Miso.String (MisoString, unlines, null)
-import qualified Miso.Style as CSS
+import qualified Miso.CSS as CSS
 ----------------------------------------------------------------------------
 -- | Model
 newtype Model
@@ -85,21 +89,24 @@ app = (component (Model mempty) updateModel viewModel)
 ----------------------------------------------------------------------------
 -- | Update function
 updateModel :: Action -> Transition Model Action
-updateModel (ReadFile input) = M.withSink $ \sink -> do
-  files_ <- files input
-  reader <- J.new (J.jsg ("FileReader" :: MisoString)) ([] :: [JSVal])
-  (reader <# ("onload" :: MisoString)) =<< do
-    M.asyncCallback $ do
-      result <- J.fromJSValUnchecked =<< reader ! ("result" :: MisoString)
-      sink (SetContent result)
-  case files_ of
-    [] -> consoleLog "No file specified"
-    file : _ -> void $ reader # ("readAsText" :: MisoString) $ [file]
-updateModel (SetContent c) =
-  info .= c
-updateModel (ClickInput button) = io_ $ do
-  input <- nextSibling button
-  input & click ()
+updateModel = \case
+  ReadFile input ->
+    M.withSink $ \sink -> do
+      files_ <- files input
+      reader <- newFileReader
+      (reader <# ("onload" :: MisoString)) =<< do
+        M.asyncCallback $ do
+          result <- J.fromJSValUnchecked =<< reader ! ("result" :: MisoString)
+          sink (SetContent result)
+      case files_ of
+        [] -> consoleLog "No file specified"
+        file : _ -> void $ reader # ("readAsText" :: MisoString) $ [file]
+  SetContent c ->
+    info .= c
+  ClickInput button ->
+    io_ $ do
+      input <- nextSibling button
+      input & click ()
 ----------------------------------------------------------------------------
 -- | View function
 viewModel :: Model -> View Model Action