elm-pages 3.0.0-beta.9 → 3.0.1

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_runner.js

@@ -75,7 +75,7 @@ console.elmlog = (str) => logs.push(str + "\n");
 const { Elm } = require("./Runner.elm.js");
 
 // Start the Elm app
-const flags = { initialSeed: 3518984952, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 2080317264, fuzzRuns: 100, filter: null };
 const app = Elm.Runner.init({ flags: flags });
 
 // Record the timing at which we received the last "runTest" message

package/generator/dead-code-review/elm-stuff/tests-0.19.1/js/node_supervisor.js

@@ -82,12 +82,12 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 3518984952,
+  initialSeed: 2080317264,
   fuzzRuns: 100,
   mode: "consoleColor",
   verbosity: verbosity,
   globs: [],
-  paths: ["/Users/dillonkearns/src/github.com/dillonkearns/elm-pages-v3-beta/generator/dead-code-review/tests/Pages/Review/DeadCodeEliminateDataTest.elm"],
+  paths: ["/Users/dillonkearns/src/github.com/dillonkearns/elm-pages/generator/dead-code-review/tests/Pages/Review/DeadCodeEliminateDataTest.elm"],
 };
 reporter = Elm.Reporter.init({ flags: flags });
 

package/generator/dead-code-review/elm.json

@@ -8,27 +8,29 @@
     "dependencies": {
         "direct": {
             "elm/core": "1.0.5",
+            "elm/json": "1.1.3",
             "elm-community/result-extra": "2.4.0",
-            "jfmengels/elm-review": "2.4.2",
-            "stil4m/elm-syntax": "7.2.5"
+            "jfmengels/elm-review": "2.13.0",
+            "stil4m/elm-syntax": "7.2.9"
         },
         "indirect": {
+            "elm/bytes": "1.0.8",
             "elm/html": "1.0.0",
-            "elm/json": "1.1.3",
             "elm/parser": "1.1.0",
             "elm/project-metadata-utils": "1.0.2",
             "elm/random": "1.0.0",
             "elm/time": "1.0.0",
-            "elm/virtual-dom": "1.0.2",
-            "elm-community/list-extra": "8.3.0",
-            "miniBill/elm-unicode": "1.0.2",
+            "elm/virtual-dom": "1.0.3",
+            "elm-community/list-extra": "8.7.0",
+            "elm-explorations/test": "2.1.1",
+            "miniBill/elm-unicode": "1.0.3",
             "rtfeldman/elm-hex": "1.0.0",
             "stil4m/structured-writer": "1.0.3"
         }
     },
     "test-dependencies": {
         "direct": {
-            "elm-explorations/test": "1.2.2"
+            "elm-explorations/test": "2.1.1"
         },
         "indirect": {}
     }

package/generator/dead-code-review/src/Pages/Review/DeadCodeEliminateData.elm

@@ -7,6 +7,7 @@ import Elm.Syntax.Expression as Expression exposing (Expression)
 import Elm.Syntax.Import exposing (Import)
 import Elm.Syntax.ModuleName exposing (ModuleName)
 import Elm.Syntax.Node as Node exposing (Node)
+import Elm.Syntax.Range exposing (Range)
 import Review.Fix
 import Review.ModuleNameLookupTable as ModuleNameLookupTable exposing (ModuleNameLookupTable)
 import Review.Rule as Rule exposing (Error, Rule)
@@ -15,6 +16,7 @@ import Review.Rule as Rule exposing (Error, Rule)
 type alias Context =
     { lookupTable : ModuleNameLookupTable
     , importContext : Dict (List String) ImportContext
+    , firstImport : Maybe Range
     }
 
 
@@ -62,18 +64,43 @@ toImportContext import_ =
 rule : Rule
 rule =
     Rule.newModuleRuleSchemaUsingContextCreator "Pages.Review.DeadCodeEliminateData" initialContext
+        |> Rule.providesFixesForModuleRule
         |> Rule.withExpressionEnterVisitor expressionVisitor
         |> Rule.withDeclarationEnterVisitor declarationVisitor
         |> Rule.withImportVisitor importVisitor
+        |> Rule.withFinalModuleEvaluation finalEvaluation
         |> Rule.fromModuleRuleSchema
 
 
+finalEvaluation : Context -> List (Rule.Error {})
+finalEvaluation context =
+    case Dict.get [ "FatalError" ] context.importContext of
+        Nothing ->
+            let
+                importAddRange : { start : { row : Int, column : Int }, end : { row : Int, column : Int } }
+                importAddRange =
+                    context.firstImport |> Maybe.withDefault { start = { row = 0, column = 0 }, end = { row = 0, column = 0 } }
+            in
+            [ Rule.errorWithFix
+                { message = "Codemod"
+                , details = [ "" ]
+                }
+                importAddRange
+                [ Review.Fix.insertAt importAddRange.end "\nimport FatalError\n"
+                ]
+            ]
+
+        _ ->
+            []
+
+
 initialContext : Rule.ContextCreator () Context
 initialContext =
     Rule.initContextCreator
         (\lookupTable () ->
             { lookupTable = lookupTable
             , importContext = Dict.empty
+            , firstImport = Nothing
             }
         )
         |> Rule.withModuleNameLookupTable
@@ -90,12 +117,20 @@ importVisitor node context =
     , { context
         | importContext =
             context.importContext |> Dict.insert key value
+        , firstImport = context.firstImport |> Maybe.withDefault (Node.range node) |> Just
       }
     )
 
 
 declarationVisitor : Node Declaration -> Context -> ( List (Error {}), Context )
 declarationVisitor node context =
+    let
+        exceptionFromString : String
+        exceptionFromString =
+            "("
+                ++ referenceFunction context.importContext ( [ "FatalError" ], "fromString" )
+                ++ " \"\")"
+    in
     case Node.value node of
         Declaration.FunctionDeclaration { declaration } ->
             case Node.value declaration of
@@ -132,8 +167,11 @@ declarationVisitor node context =
                                                 (Node.range dataValue)
                                                 -- TODO need to replace `action` as well
                                                 [ ("data = "
-                                                    ++ referenceFunction context.importContext ( [ "DataSource" ], "fail" )
-                                                    ++ " \"\"\n    "
+                                                    ++ referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
+                                                    -- TODO add `import FatalError` if not present (and use alias if present)
+                                                    ++ " "
+                                                    ++ exceptionFromString
+                                                    ++ "\n    "
                                                   )
                                                     |> Review.Fix.replaceRangeBy (Node.range dataValue)
                                                 ]
@@ -179,6 +217,13 @@ expressionVisitor node context =
                     ( dataFieldValue
                         |> List.concatMap
                             (\( key, dataValue ) ->
+                                let
+                                    exceptionFromString : String
+                                    exceptionFromString =
+                                        "("
+                                            ++ referenceFunction context.importContext ( [ "FatalError" ], "fromString" )
+                                            ++ " \"\")"
+                                in
                                 [ Rule.errorWithFix
                                     { message = "Codemod"
                                     , details = [ "" ]
@@ -190,22 +235,28 @@ expressionVisitor node context =
                                             ++ (case pageBuilderName of
                                                     "preRender" ->
                                                         "\\_ -> "
-                                                            ++ referenceFunction context.importContext ( [ "DataSource" ], "fail" )
-                                                            ++ " \"\""
+                                                            ++ referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
+                                                            ++ " "
+                                                            ++ exceptionFromString
 
                                                     "preRenderWithFallback" ->
                                                         "\\_ -> "
-                                                            ++ referenceFunction context.importContext ( [ "DataSource" ], "fail" )
-                                                            ++ " \"\""
+                                                            ++ referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
+                                                            ++ " "
+                                                            ++ exceptionFromString
 
                                                     "serverRender" ->
-                                                        "\\_ -> "
-                                                            ++ referenceFunction context.importContext ( [ "Server", "Request" ], "oneOf" )
-                                                            ++ " []\n        "
+                                                        "\\_ _ -> "
+                                                            ++ referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
+                                                            ++ " ("
+                                                            ++ referenceFunction context.importContext ( [ "FatalError" ], "fromString" )
+                                                            ++ " \"\")\n        "
 
                                                     "single" ->
-                                                        referenceFunction context.importContext ( [ "DataSource" ], "fail" )
-                                                            ++ " \"\"\n       "
+                                                        referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
+                                                            ++ " "
+                                                            ++ exceptionFromString
+                                                            ++ "\n       "
 
                                                     _ ->
                                                         "data"
@@ -259,7 +310,7 @@ isAlreadyApplied lookupTable expression =
                                             )
                                         |> Maybe.withDefault []
                             in
-                            resolvedModuleName == [ "DataSource" ]
+                            resolvedModuleName == [ "BackendTask" ]
 
                         (Expression.FunctionOrValue _ "oneOf") :: (Expression.ListExpr []) :: _ ->
                             let
@@ -295,7 +346,7 @@ isAlreadyApplied lookupTable expression =
                                     )
                                 |> Maybe.withDefault []
                     in
-                    resolvedModuleName == [ "DataSource" ]
+                    resolvedModuleName == [ "BackendTask" ]
 
                 _ ->
                     False

package/generator/dead-code-review/tests/Pages/Review/DeadCodeEliminateDataTest.elm

@@ -14,11 +14,12 @@ all =
 
 import Server.Request as Request
 
-import DataSource exposing (DataSource)
-import RouteBuilder exposing (Page, StaticPayload, single)
+import BackendTask exposing (BackendTask)
+import FatalError
+import RouteBuilder exposing (Page, App, single)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -49,9 +50,9 @@ route =
        |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                     |> Review.Test.run rule
                     |> Review.Test.expectErrors
@@ -68,11 +69,12 @@ data =
 
 import Server.Request as Request
 
-import DataSource exposing (DataSource)
-import RouteBuilder exposing (Page, StaticPayload, single)
+import BackendTask exposing (BackendTask)
+import FatalError
+import RouteBuilder exposing (Page, App, single)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -98,26 +100,27 @@ route : StatelessRoute RouteParams Data ActionData
 route =
    single
        { head = head
-       , data = DataSource.fail ""
+       , data = BackendTask.fail (FatalError.fromString "")
        }
        |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                         ]
-        , test "supports aliased DataSource module import" <|
+        , test "supports aliased BackendTask module import" <|
             \() ->
                 """module Route.Index exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
-import DataSource as DS
-import RouteBuilder exposing (Page, StaticPayload, single)
+import FatalError
+import BackendTask as DS
+import RouteBuilder exposing (Page, App, single)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -148,9 +151,9 @@ route =
        |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                     |> Review.Test.run rule
                     |> Review.Test.expectErrors
@@ -166,11 +169,12 @@ data =
                                 """module Route.Index exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
-import DataSource as DS
-import RouteBuilder exposing (Page, StaticPayload, single)
+import FatalError
+import BackendTask as DS
+import RouteBuilder exposing (Page, App, single)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -196,14 +200,14 @@ route : StatelessRoute RouteParams Data ActionData
 route =
    single
        { head = head
-       , data = DS.fail ""
+       , data = DS.fail (FatalError.fromString "")
        }
        |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                         ]
         , test "replaces data record setter with non-empty RouteParams" <|
@@ -212,11 +216,12 @@ data =
 
 import Server.Request as Request
 
-import DataSource exposing (DataSource)
-import RouteBuilder exposing (Page, StaticPayload)
+import BackendTask exposing (BackendTask)
+import FatalError
+import RouteBuilder exposing (Page, App)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -248,9 +253,9 @@ route =
         |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                     |> Review.Test.run rule
                     |> Review.Test.expectErrors
@@ -266,11 +271,12 @@ data =
 
 import Server.Request as Request
 
-import DataSource exposing (DataSource)
-import RouteBuilder exposing (Page, StaticPayload)
+import BackendTask exposing (BackendTask)
+import FatalError
+import RouteBuilder exposing (Page, App)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -295,16 +301,16 @@ type alias Data =
 route : StatelessRoute RouteParams Data ActionData
 route =
     RouteBuilder.preRender
-        { data = \\_ -> DataSource.fail ""
+        { data = \\_ -> BackendTask.fail (FatalError.fromString "")
         , head = head
         , pages = pages
         }
         |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                         ]
         , test "replaces data record setter with RouteBuilder.serverRendered" <|
@@ -312,6 +318,7 @@ data =
                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
+import FatalError
 
 type alias Model =
     {}
@@ -348,6 +355,7 @@ route =
                                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
+import FatalError
 
 type alias Model =
     {}
@@ -365,7 +373,7 @@ route : StatelessRoute RouteParams Data ActionData
 route =
     RouteBuilder.serverRender
         { head = head
-        , data = \\_ -> Request.oneOf []
+        , data = \\_ _ -> BackendTask.fail (FatalError.fromString "")
         , action = action
         }
         |> RouteBuilder.buildNoState { view = view }
@@ -382,6 +390,7 @@ route =
                                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
+import FatalError
 
 type alias Model =
     {}
@@ -400,7 +409,7 @@ route =
     RouteBuilder.serverRender
         { head = head
         , data = data
-        , action = \\_ -> Request.oneOf []
+        , action = \\_ _ -> BackendTask.fail (FatalError.fromString "")
         }
         |> RouteBuilder.buildNoState { view = view }
 """
@@ -410,6 +419,7 @@ route =
                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request
+import FatalError
 
 type alias Model =
     {}
@@ -446,6 +456,7 @@ route =
                                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request
+import FatalError
 
 type alias Model =
     {}
@@ -463,7 +474,7 @@ route : StatelessRoute RouteParams Data ActionData
 route =
     RouteBuilder.serverRender
         { head = head
-        , data = \\_ -> Server.Request.oneOf []
+        , data = \\_ _ -> BackendTask.fail (FatalError.fromString "")
         , action = action
         }
         |> RouteBuilder.buildNoState { view = view }
@@ -480,6 +491,7 @@ route =
                                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request
+import FatalError
 
 type alias Model =
     {}
@@ -498,7 +510,7 @@ route =
     RouteBuilder.serverRender
         { head = head
         , data = data
-        , action = \\_ -> Server.Request.oneOf []
+        , action = \\_ _ -> BackendTask.fail (FatalError.fromString "")
         }
         |> RouteBuilder.buildNoState { view = view }
 """
@@ -508,6 +520,7 @@ route =
                 """module Route.Login exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
+import FatalError
 
 type alias Model =
     {}
@@ -525,7 +538,7 @@ route : StatelessRoute RouteParams Data ActionData
 route =
     RouteBuilder.serverRender
         { head = head
-        , data = \\_ -> Request.oneOf []
+        , data = \\_ _ -> BackendTask.fail (FatalError.fromString "")
         }
         |> RouteBuilder.buildNoState { view = view }
 """
@@ -536,12 +549,13 @@ route =
                 """module Route.Index exposing (Data, Model, Msg, route)
 
 import Server.Request as Request
+import FatalError
 
-import DataSource exposing (DataSource)
-import RouteBuilder exposing (Page, StaticPayload)
+import BackendTask exposing (BackendTask)
+import RouteBuilder exposing (Page, App)
 import Pages.PageUrl exposing (PageUrl)
 import Pages.Url
-import Path
+import UrlPath
 import Route exposing (Route)
 import Shared
 import View exposing (View)
@@ -567,14 +581,14 @@ route : StatelessRoute RouteParams Data ActionData
 route =
    RouteBuilder.single
        { head = head
-       , data = DataSource.fail ""
+       , data = BackendTask.fail (FatalError.fromString "")
        }
        |> RouteBuilder.buildNoState { view = view }
 
 
-data : DataSource Data
+data : BackendTask Data
 data =
-    DataSource.succeed ()
+    BackendTask.succeed ()
 """
                     |> Review.Test.run rule
                     |> Review.Test.expectNoErrors
@@ -583,14 +597,15 @@ data =
                 """module Shared exposing (Data, Model, Msg, template)
 
 import Server.Request as Request
+import FatalError
 
 import Browser.Navigation
-import DataSource
+import BackendTask
 import Html exposing (Html)
 import Html.Styled
 import Pages.Flags
 import Pages.PageUrl exposing (PageUrl)
-import Path exposing (Path)
+import UrlPath exposing (UrlPath)
 import Route exposing (Route)
 import SharedTemplate exposing (SharedTemplate)
 import TableOfContents
@@ -633,14 +648,15 @@ type alias Model =
                                 """module Shared exposing (Data, Model, Msg, template)
 
 import Server.Request as Request
+import FatalError
 
 import Browser.Navigation
-import DataSource
+import BackendTask
 import Html exposing (Html)
 import Html.Styled
 import Pages.Flags
 import Pages.PageUrl exposing (PageUrl)
-import Path exposing (Path)
+import UrlPath exposing (UrlPath)
 import Route exposing (Route)
 import SharedTemplate exposing (SharedTemplate)
 import TableOfContents
@@ -653,7 +669,7 @@ template =
     { init = init
     , update = update
     , view = view
-    , data = DataSource.fail ""
+    , data = BackendTask.fail (FatalError.fromString "")
     , subscriptions = subscriptions
     , onPageChange = Just OnPageChange
     }

package/generator/review/elm-stuff/tests-0.19.1/elm.json

@@ -1 +1 @@
-{"type":"application","source-directories":["../../src","../../tests","../../../../src","src"],"elm-version":"0.19.1","dependencies":{"direct":{"elm/core":"1.0.5","elm/html":"1.0.0","elm/json":"1.1.3","elm/regex":"1.0.0","elm-community/result-extra":"2.4.0","elm-explorations/test":"1.2.2","jfmengels/elm-review":"2.4.2","mdgriffith/elm-codegen":"2.0.0","mpizenberg/elm-test-runner":"5.0.0","stil4m/elm-syntax":"7.2.5","the-sett/elm-syntax-dsl":"6.0.2"},"indirect":{"Chadtech/elm-bool-extra":"2.4.2","elm/parser":"1.1.0","elm/project-metadata-utils":"1.0.2","elm/random":"1.0.0","elm/time":"1.0.0","elm/virtual-dom":"1.0.3","elm-community/basics-extra":"4.1.0","elm-community/list-extra":"8.7.0","elm-community/maybe-extra":"5.3.0","miniBill/elm-unicode":"1.0.2","rtfeldman/elm-hex":"1.0.0","stil4m/structured-writer":"1.0.3","the-sett/elm-pretty-printer":"3.0.0"}},"test-dependencies":{"direct":{},"indirect":{}}}
+{"type":"application","source-directories":["../../src","../../tests","../../../../src","src"],"elm-version":"0.19.1","dependencies":{"direct":{"elm/core":"1.0.5","elm/html":"1.0.0","elm/json":"1.1.3","elm/regex":"1.0.0","elm-explorations/test":"2.1.1","jfmengels/elm-review":"2.13.0","mdgriffith/elm-codegen":"3.0.0","mpizenberg/elm-test-runner":"6.0.0","stil4m/elm-syntax":"7.2.9","the-sett/elm-syntax-dsl":"6.0.2"},"indirect":{"Chadtech/elm-bool-extra":"2.4.2","elm/bytes":"1.0.8","elm/parser":"1.1.0","elm/project-metadata-utils":"1.0.2","elm/random":"1.0.0","elm/time":"1.0.0","elm/virtual-dom":"1.0.3","elm-community/basics-extra":"4.1.0","elm-community/list-extra":"8.7.0","elm-community/maybe-extra":"5.3.0","miniBill/elm-unicode":"1.0.3","rtfeldman/elm-hex":"1.0.0","stil4m/structured-writer":"1.0.3","the-sett/elm-pretty-printer":"3.0.0"}},"test-dependencies":{"direct":{},"indirect":{}}}