Setup elm-pages scenario, test path, and failing example

Author: supermario

compiler/src/Compile.hs

@@ -39,6 +39,7 @@ import qualified Lamdera.Wire3.Helpers as Lamdera.Wire
 import Lamdera
 import qualified CanSer.CanSer as ToSource
 import qualified Data.Text as T
+import qualified Ext.ElmPages.Check
 
 -- import StandaloneInstances
 
@@ -67,6 +68,8 @@ compile pkg ifaces modul = do
   canonical0  <- canonicalize pkg ifaces modul_
   -- ()          <- debugPassText "starting canonical2" "" (pure ())
 
+  onlyWhen (Src.getName modul == "Main") $ Ext.ElmPages.Check.isWireCompatible canonical0 ifaces
+
   -- Add Canonical Wire gens, i.e. the `w2_[en|de]code_TYPENAME` functions
   canonical1 <- Lamdera.Wire3.Core.addWireGenerations canonical0 pkg ifaces modul_
   canonical2 <- Lamdera.Wire2.Core.addWireGenerations canonical1 pkg ifaces modul_

elm.cabal

@@ -53,6 +53,7 @@ Executable lamdera
         -- Elmx
         ext-common
         ext-sentry
+        ext-elm-pages
 
     Main-Is:
         Main.hs
@@ -293,17 +294,19 @@ Executable lamdera
         Wire.PrettyPrint
 
         -- Elmx extensions
-        -- Ext Common --
+        -- ext-common
         Ext.Common
         Ext.ElmFormat
         Ext.Query.Canonical
         Ext.Query.Interfaces
 
-
-        -- Ext-sentry
+        -- ext-sentry
         Ext.Sentry
         Ext.Filewatch
 
+        -- ext-elm-pages
+        Ext.ElmPages.Check
+
     Build-depends:
         ansi-terminal,
           -- >= 0.8 && < 0.9,

test/Test.hs

@@ -86,7 +86,8 @@ For more information on how to use the GHCi debugger, see the GHC User's Guide.
 
 -- target = buildTestHarnessToProductionJs
 -- target = checkProjectCompiles
-target = liveReloadLive
+-- target = liveReloadLive
+target = Lamdera.Compile.makeDev_ "/Users/mario/dev/projects/lamdera-compiler/test/scenario-elm-pages-incompatible-wire/.elm-pages/Main.elm"
 
 -- target = do
 --   Dir.withCurrentDirectory "/Users/mario/dev/projects/lamdera-dashboard" $ Lamdera.CLI.Check.run () ()

test/scenario-elm-pages-incompatible-wire/.gitignore

@@ -0,0 +1,5 @@
+node_modules/
+elm-stuff/
+dist/
+.elm-pages/
+functions/render/elm-pages-cli.js

test/scenario-elm-pages-incompatible-wire/README.md

@@ -0,0 +1 @@
+# README

test/scenario-elm-pages-incompatible-wire/app/Api.elm

@@ -0,0 +1,25 @@
+module Api exposing (routes)
+
+import ApiRoute exposing (ApiRoute)
+import DataSource exposing (DataSource)
+import Html exposing (Html)
+import Pages.Manifest as Manifest
+import Route exposing (Route)
+
+
+routes :
+    DataSource (List Route)
+    -> (Html Never -> String)
+    -> List (ApiRoute ApiRoute.Response)
+routes getStaticRoutes htmlToString =
+    []
+
+
+manifest : Manifest.Config
+manifest =
+    Manifest.init
+        { name = "Site Name"
+        , description = "Description"
+        , startUrl = Route.Index |> Route.toPath
+        , icons = []
+        }

test/scenario-elm-pages-incompatible-wire/app/Route/Index.elm

@@ -0,0 +1,86 @@
+module Route.Index exposing (Data, Model, Msg, route)
+
+import DataSource exposing (DataSource)
+import Head
+import Head.Seo as Seo
+import Html
+import Html.Attributes as Attr
+import Pages.PageUrl exposing (PageUrl)
+import Pages.Url
+import RouteBuilder exposing (StatelessRoute, StaticPayload)
+import Shared
+import View exposing (View)
+
+
+type alias Model =
+    {}
+
+
+type alias Msg =
+    ()
+
+
+type alias RouteParams =
+    {}
+
+
+type alias Data =
+    {}
+
+
+route : StatelessRoute RouteParams Data
+route =
+    RouteBuilder.single
+        { head = head
+        , data = data
+        }
+        |> RouteBuilder.buildNoState { view = view }
+
+
+data : DataSource Data
+data =
+    DataSource.succeed Data
+
+
+head :
+    StaticPayload Data RouteParams
+    -> List Head.Tag
+head static =
+    Seo.summary
+        { canonicalUrlOverride = Nothing
+        , siteName = "elm-pages"
+        , image =
+            { url = Pages.Url.external "TODO"
+            , alt = "elm-pages logo"
+            , dimensions = Nothing
+            , mimeType = Nothing
+            }
+        , description = "Welcome to elm-pages!"
+        , locale = Nothing
+        , title = "elm-pages is running"
+        }
+        |> Seo.website
+
+
+view :
+    Maybe PageUrl
+    -> Shared.Model
+    -> StaticPayload Data RouteParams
+    -> View Msg
+view maybeUrl sharedModel static =
+    { title = "elm-pages is running"
+    , body =
+        [ Html.h1 [] [ Html.text "elm-pages is up and running!" ]
+        , Html.h2 [] [ Html.text "Learn more" ]
+        , Html.ul
+            []
+            [ Html.li []
+                [ Html.a [ Attr.href "https://elm-pages.com/docs/" ] [ Html.text "Framework documentation" ]
+                ]
+            , Html.li
+                []
+                [ Html.a [ Attr.href "https://package.elm-lang.org/packages/dillonkearns/elm-pages/latest/" ] [ Html.text "Elm package documentation" ]
+                ]
+            ]
+        ]
+    }

test/scenario-elm-pages-incompatible-wire/app/Shared.elm

@@ -0,0 +1,100 @@
+module Shared exposing (Data, Model, Msg(..), SharedMsg(..), template)
+
+import Browser.Navigation
+import DataSource
+import Html exposing (Html)
+import Pages.Flags
+import Pages.PageUrl exposing (PageUrl)
+import Path exposing (Path)
+import Route exposing (Route)
+import SharedTemplate exposing (SharedTemplate)
+import View exposing (View)
+
+
+template : SharedTemplate Msg Model Data msg
+template =
+    { init = init
+    , update = update
+    , view = view
+    , data = data
+    , subscriptions = subscriptions
+    , onPageChange = Just OnPageChange
+    }
+
+
+type Msg
+    = OnPageChange
+        { path : Path
+        , query : Maybe String
+        , fragment : Maybe String
+        }
+    | SharedMsg SharedMsg
+
+
+type alias Data =
+    ()
+
+
+type SharedMsg
+    = NoOp
+
+
+type alias Model =
+    { showMobileMenu : Bool
+    }
+
+
+init :
+    Maybe Browser.Navigation.Key
+    -> Pages.Flags.Flags
+    ->
+        Maybe
+            { path :
+                { path : Path
+                , query : Maybe String
+                , fragment : Maybe String
+                }
+            , metadata : route
+            , pageUrl : Maybe PageUrl
+            }
+    -> ( Model, Cmd Msg )
+init navigationKey flags maybePagePath =
+    ( { showMobileMenu = False }
+    , Cmd.none
+    )
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        OnPageChange _ ->
+            ( { model | showMobileMenu = False }, Cmd.none )
+
+        SharedMsg globalMsg ->
+            ( model, Cmd.none )
+
+
+subscriptions : Path -> Model -> Sub Msg
+subscriptions _ _ =
+    Sub.none
+
+
+data : DataSource.DataSource Data
+data =
+    DataSource.succeed ()
+
+
+view :
+    Data
+    ->
+        { path : Path
+        , route : Maybe Route
+        }
+    -> Model
+    -> (Msg -> msg)
+    -> View msg
+    -> { body : Html msg, title : String }
+view sharedData page model toMsg pageView =
+    { body = Html.div [] pageView.body
+    , title = pageView.title
+    }

test/scenario-elm-pages-incompatible-wire/app/Site.elm

@@ -0,0 +1,19 @@
+module Site exposing (config)
+
+import DataSource exposing (DataSource)
+import Head
+import SiteConfig exposing (SiteConfig)
+
+
+config : SiteConfig
+config =
+    { canonicalUrl = "https://elm-pages.com"
+    , head = head
+    }
+
+
+head : DataSource (List Head.Tag)
+head =
+    [ Head.sitemapLink "/sitemap.xml"
+    ]
+        |> DataSource.succeed

test/scenario-elm-pages-incompatible-wire/app/View.elm

@@ -0,0 +1,23 @@
+module View exposing (View, map, placeholder)
+
+import Html exposing (Html)
+
+
+type alias View msg =
+    { title : String
+    , body : List (Html msg)
+    }
+
+
+map : (msg1 -> msg2) -> View msg1 -> View msg2
+map fn doc =
+    { title = doc.title
+    , body = List.map (Html.map fn) doc.body
+    }
+
+
+placeholder : String -> View msg
+placeholder moduleName =
+    { title = "Placeholder - " ++ moduleName
+    , body = [ Html.text moduleName ]
+    }