bump elm-land to 0.19.1

Signed-off-by: Avinal Kumar <avinal.xlvii@gmail.com>

elm-land.json

@@ -125,8 +125,8 @@
           "rel": "mask-icon",
           "href": "/safari-pinned-tab.svg",
           "color": "#5bbad5"
-        }
+        },
-        ,{
+        {
           "rel": "canonical",
           "href": "https://avinal.space"
         }
@@ -141,4 +141,4 @@
       "useHashRouting": false
     }
   }
-}
+}

package.json

@@ -1,7 +1,7 @@
 {
   "devDependencies": {
     "@tailwindcss/typography": "^0.5.8",
-    "elm-land": "^0.18.1",
+    "elm-land": "^0.19.1",
     "tailwindcss": "^3.2.4"
   },
   "dependencies": {

src/Layouts/Blog.elm

@@ -1,4 +1,4 @@
-module Layouts.Blog exposing (Model, Msg, Settings, layout)
+module Layouts.Blog exposing (Model, Msg, Props, layout)
 
 import Components.Footer exposing (footerLinksToSide)
 import Effect exposing (Effect)
@@ -11,14 +11,14 @@ import Utils.Constants exposing (..)
 import View exposing (View)
 
 
-type alias Settings =
+type alias Props =
     {}
 
 
-layout : Settings -> Shared.Model -> Route () -> Layout Model Msg mainMsg
+layout : Props -> Shared.Model -> Route () -> Layout () Model Msg contentMsg
-layout settings _ _ =
+layout props shared route =
     Layout.new
-        { init = init settings
+        { init = init
         , update = update
         , view = view
         , subscriptions = subscriptions
@@ -33,8 +33,8 @@ type alias Model =
     {}
 
 
-init : Settings -> () -> ( Model, Effect Msg )
+init : () -> ( Model, Effect Msg )
-init _ _ =
+init _ =
     ( {}
     , Effect.none
     )
@@ -45,32 +45,33 @@ init _ _ =
 
 
 type Msg
-    = NoOp
+    = ReplaceMe
 
 
 update : Msg -> Model -> ( Model, Effect Msg )
 update msg model =
     case msg of
-        NoOp ->
+        ReplaceMe ->
-            ( model, Effect.none )
+            ( model
+            , Effect.none
+            )
 
 
 subscriptions : Model -> Sub Msg
-subscriptions _ =
+subscriptions model =
     Sub.none
 
 
 
 -- VIEW
 
-
 blogTheme : String
 blogTheme =
     "prose prose-invert mx-auto lg:prose-lg prose-a:decoration-cyan-500 hover:prose-a:decoration-pink-500"
 
 
-view : { fromMsg : Msg -> mainMsg, content : View mainMsg, model : Model } -> View mainMsg
+view : { toContentMsg : Msg -> contentMsg, content : View contentMsg, model : Model } -> View contentMsg
-view { fromMsg, model, content } =
+view { toContentMsg, model, content } =
     { title = content.title
     , body =
         [ Html.div [ class "min-h-screen flex flex-col justify-center relative overflow-hidden" ]

src/Layouts/Home.elm

@@ -1,4 +1,4 @@
-module Layouts.Home exposing (Model, Msg, Settings, layout)
+module Layouts.Home exposing (Model, Msg, Props, layout)
 
 import Components.Footer exposing (iconLinkToCenter)
 import Effect exposing (Effect)
@@ -11,12 +11,12 @@ import Utils.Constants exposing (..)
 import View exposing (View)
 
 
-type alias Settings =
+type alias Props =
     {}
 
 
-layout : Settings -> Shared.Model -> Route () -> Layout Model Msg mainMsg
+layout : Props -> Shared.Model -> Route () -> Layout () Model Msg contentMsg
-layout _ _ _ =
+layout props shared route =
     Layout.new
         { init = init
         , update = update
@@ -58,7 +58,7 @@ update msg model =
 
 
 subscriptions : Model -> Sub Msg
-subscriptions _ =
+subscriptions model =
     Sub.none
 
 
@@ -66,8 +66,8 @@ subscriptions _ =
 -- VIEW
 
 
-view : { fromMsg : Msg -> mainMsg, content : View mainMsg, model : Model } -> View mainMsg
+view : { toContentMsg : Msg -> contentMsg, content : View contentMsg, model : Model } -> View contentMsg
-view { fromMsg, model, content } =
+view { toContentMsg, model, content } =
     let
         footerLinkToCenter : Link -> Html msg
         footerLinkToCenter link =

src/Pages/Home_.elm

@@ -31,11 +31,10 @@ page _ _ =
 -- LAYOUT
 
 
-layout : Model -> Layouts.Layout
+layout : Model -> Layouts.Layout Msg
 layout _ =
     Layouts.Home
-        { home = {}
+        {}
-        }
 
 
 

src/Pages/Posts/Category_/Post_.elm

@@ -30,12 +30,10 @@ page _ route =
 -- LAYOUT
 
 
-layout : Model -> Layouts.Layout
+layout : Model -> Layouts.Layout Msg
 layout _ =
     Layouts.Blog
-        { blog =
+        {}
-            {}
-        }