Bump flake

dmjio · dmjio · commit d7598418d27c · 2025-08-03T17:07:58.000-05:00
diff --git a/.github/workflows/main.yml b/.github/workflows/main.yml
@@ -1,9 +1,9 @@
-
 name: Build and deploy
 
 on:
   push:
     branches: main
+  pull_request:
 
 permissions:
   contents: read
@@ -30,6 +30,7 @@ jobs:
           path: ./public
 
   deploy:
+    if: github.ref == 'refs/heads/main'
     runs-on: ubuntu-latest
 
     environment:
diff --git a/cabal.project b/cabal.project
@@ -9,5 +9,4 @@ flags: +template-haskell
 source-repository-package
   type: git
   location: https://github.com/dmjio/miso
-  branch: master
-
+  tag: 8c4b85e6e1279bec9b66859c54f25209701b8153
diff --git a/flake.lock b/flake.lock
diff --git a/src/Main.hs b/src/Main.hs
@@ -33,7 +33,7 @@ foreign export javascript "hs_start" main :: IO ()
 ----------------------------------------------------------------------------
 -- | Main entry point
 main :: IO ()
-main = run (startComponent app)
+main = run (startApp app)
 ----------------------------------------------------------------------------
 -- | Model
 newtype Model = Model
@@ -51,7 +51,7 @@ data Action
   | ErrorHandler MisoString
   deriving (Show, Eq)
 ----------------------------------------------------------------------------
-app :: Component Model Action
+app :: App Model Action
 app = (component emptyModel updateModel viewModel)
 #ifndef WASM
   { styles =
@@ -67,7 +67,7 @@ emptyModel = Model Nothing
 -- | GitHub API method
 type GithubAPI = Get '[JSON] GitHub
 ----------------------------------------------------------------------------
-updateModel :: Action -> Effect Model Action
+updateModel :: Action -> Transition Model Action
 updateModel FetchGitHub =
   fetch "https://api.github.com" "GET" Nothing [] SetGitHub ErrorHandler
 updateModel (SetGitHub apiInfo) =
@@ -76,7 +76,7 @@ updateModel (ErrorHandler msg) =
   io_ (consoleError msg)
 ----------------------------------------------------------------------------
 -- | View function, with routing
-viewModel :: Model -> View Action
+viewModel :: Model -> View Model Action
 viewModel m = view
   where
     view =
@@ -128,7 +128,7 @@ viewModel m = view
             ]
       ]
 
-    tr :: MisoString -> View action
+    tr :: MisoString -> View Model action
     tr x = tr_ [] [ td_ [] [ text x ] ]
 
     attrs :: [Attribute Action]
diff --git a/static/index.html b/static/index.html
@@ -1,4 +1,3 @@
-
 <!DOCTYPE html>
 <html>
   <head>

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,3 @@`
`1`		`-`
`2`	`1`	`<!DOCTYPE html>`
`3`	`2`	`<html>`
`4`	`3`	`<head>`