elm-pages 3.0.0-beta.15 → 3.0.0-beta.17

package/README.md

@@ -81,7 +81,7 @@ https://github.com/dillonkearns/elm-pages/projects
 You will see an error if the NPM and Elm package do not have a matching Compatibility Key. Usually it's best to upgrade to the latest version of both the Elm and NPM
 packages when you upgrade. However, in case you want to install versions that are behind the latest, the Compatibility Key is included here for reference.
 
-Current Compatibility Key: 5.
+Current Compatibility Key: 6.
 
 ## Contributors ✨
 

package/codegen/elm-pages-codegen.js

@@ -26201,7 +26201,7 @@ var $author$project$Gen$Pages$Internal$Platform$Cli$annotation_ = {
 							'BackendTask',
 							_List_fromArray(
 								[
-									A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+									A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 									A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Effect', _List_Nil)
 								]))),
 						_Utils_Tuple2(
@@ -26987,6 +26987,50 @@ var $author$project$Gen$Platform$Sub$batch = function (batchArg) {
 			]));
 };
 var $author$project$Gen$BackendTask$call_ = {
+	allowFatal: function (allowFatalArg) {
+		return A2(
+			$author$project$Elm$apply,
+			$author$project$Elm$value(
+				{
+					annotation: $elm$core$Maybe$Just(
+						A2(
+							$author$project$Elm$Annotation$function,
+							_List_fromArray(
+								[
+									A3(
+									$author$project$Elm$Annotation$namedWith,
+									_List_Nil,
+									'BackendTask',
+									_List_fromArray(
+										[
+											A2(
+											$author$project$Elm$Annotation$extensible,
+											'error',
+											_List_fromArray(
+												[
+													_Utils_Tuple2(
+													'fatal',
+													A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil))
+												])),
+											$author$project$Elm$Annotation$var('data')
+										]))
+								]),
+							A3(
+								$author$project$Elm$Annotation$namedWith,
+								_List_Nil,
+								'BackendTask',
+								_List_fromArray(
+									[
+										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
+										$author$project$Elm$Annotation$var('data')
+									])))),
+					importFrom: _List_fromArray(
+						['BackendTask']),
+					name: 'allowFatal'
+				}),
+			_List_fromArray(
+				[allowFatalArg]));
+	},
 	andMap: F2(
 		function (andMapArg, andMapArg0) {
 			return A2(
@@ -27091,49 +27135,6 @@ var $author$project$Gen$BackendTask$call_ = {
 				_List_fromArray(
 					[andThenArg, andThenArg0]));
 		}),
-	_catch: function (catchArg) {
-		return A2(
-			$author$project$Elm$apply,
-			$author$project$Elm$value(
-				{
-					annotation: $elm$core$Maybe$Just(
-						A2(
-							$author$project$Elm$Annotation$function,
-							_List_fromArray(
-								[
-									A3(
-									$author$project$Elm$Annotation$namedWith,
-									_List_Nil,
-									'BackendTask',
-									_List_fromArray(
-										[
-											A3(
-											$author$project$Elm$Annotation$namedWith,
-											_List_Nil,
-											'Exception',
-											_List_fromArray(
-												[
-													$author$project$Elm$Annotation$var('error')
-												])),
-											$author$project$Elm$Annotation$var('value')
-										]))
-								]),
-							A3(
-								$author$project$Elm$Annotation$namedWith,
-								_List_Nil,
-								'BackendTask',
-								_List_fromArray(
-									[
-										$author$project$Elm$Annotation$var('error'),
-										$author$project$Elm$Annotation$var('value')
-									])))),
-					importFrom: _List_fromArray(
-						['BackendTask']),
-					name: 'catch'
-				}),
-			_List_fromArray(
-				[catchArg]));
-	},
 	combine: function (combineArg) {
 		return A2(
 			$author$project$Elm$apply,
@@ -28179,49 +28180,6 @@ var $author$project$Gen$BackendTask$call_ = {
 			_List_fromArray(
 				[succeedArg]));
 	},
-	_throw: function (throwArg) {
-		return A2(
-			$author$project$Elm$apply,
-			$author$project$Elm$value(
-				{
-					annotation: $elm$core$Maybe$Just(
-						A2(
-							$author$project$Elm$Annotation$function,
-							_List_fromArray(
-								[
-									A3(
-									$author$project$Elm$Annotation$namedWith,
-									_List_Nil,
-									'BackendTask',
-									_List_fromArray(
-										[
-											A3(
-											$author$project$Elm$Annotation$namedWith,
-											_List_Nil,
-											'Exception',
-											_List_fromArray(
-												[
-													$author$project$Elm$Annotation$var('error')
-												])),
-											$author$project$Elm$Annotation$var('data')
-										]))
-								]),
-							A3(
-								$author$project$Elm$Annotation$namedWith,
-								_List_Nil,
-								'BackendTask',
-								_List_fromArray(
-									[
-										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
-										$author$project$Elm$Annotation$var('data')
-									])))),
-					importFrom: _List_fromArray(
-						['BackendTask']),
-					name: 'throw'
-				}),
-			_List_fromArray(
-				[throwArg]));
-	},
 	toResult: function (toResultArg) {
 		return A2(
 			$author$project$Elm$apply,
@@ -28238,14 +28196,7 @@ var $author$project$Gen$BackendTask$call_ = {
 									'BackendTask',
 									_List_fromArray(
 										[
-											A3(
-											$author$project$Elm$Annotation$namedWith,
-											_List_Nil,
-											'Exception',
-											_List_fromArray(
-												[
-													$author$project$Elm$Annotation$var('error')
-												])),
+											$author$project$Elm$Annotation$var('error'),
 											$author$project$Elm$Annotation$var('data')
 										]))
 								]),
@@ -32814,7 +32765,7 @@ var $author$project$Gen$ApiRoute$single = function (singleArg) {
 										'BackendTask',
 										_List_fromArray(
 											[
-												A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+												A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 												$author$project$Elm$Annotation$string
 											])),
 										$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string)
@@ -33568,7 +33519,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 						'BackendTask',
 						_List_fromArray(
 							[
-								A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+								A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 								$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string)
 							])))),
 			importFrom: _List_fromArray(
@@ -33603,7 +33554,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 								'BackendTask',
 								_List_fromArray(
 									[
-										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 										$author$project$Elm$Annotation$list(
 										A3(
 											$author$project$Elm$Annotation$namedWith,
@@ -33667,7 +33618,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 								'BackendTask',
 								_List_fromArray(
 									[
-										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 										$author$project$Elm$Annotation$list(
 										$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string))
 									]))),
@@ -33683,7 +33634,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 									'BackendTask',
 									_List_fromArray(
 										[
-											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 											$author$project$Elm$Annotation$string
 										])),
 									$author$project$Elm$Annotation$var('constructor')
@@ -33720,7 +33671,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 								'BackendTask',
 								_List_fromArray(
 									[
-										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+										A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 										$author$project$Elm$Annotation$list(
 										$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string))
 									]))),
@@ -33736,7 +33687,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 									'BackendTask',
 									_List_fromArray(
 										[
-											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 											A3(
 											$author$project$Elm$Annotation$namedWith,
 											_List_fromArray(
@@ -33789,7 +33740,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 											'BackendTask',
 											_List_fromArray(
 												[
-													A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+													A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 													A3(
 													$author$project$Elm$Annotation$namedWith,
 													_List_fromArray(
@@ -33836,7 +33787,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 									'BackendTask',
 									_List_fromArray(
 										[
-											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+											A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 											$author$project$Elm$Annotation$string
 										])),
 									$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string)
@@ -33945,7 +33896,7 @@ var $author$project$Gen$ApiRoute$values_ = {
 							'BackendTask',
 							_List_fromArray(
 								[
-									A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'Throwable', _List_Nil),
+									A3($author$project$Elm$Annotation$namedWith, _List_Nil, 'FatalError', _List_Nil),
 									$author$project$Elm$Annotation$list(
 									A3(
 										$author$project$Elm$Annotation$namedWith,
@@ -36964,8 +36915,8 @@ var $author$project$GenerateMain$otherFile = F2(
 					A2(
 						$author$project$Elm$Annotation$named,
 						_List_fromArray(
-							['Exception']),
-						'Throwable'),
+							['FatalError']),
+						'FatalError'),
 					$author$project$Elm$Annotation$list(
 						A2(
 							$author$project$Elm$Annotation$named,
@@ -37044,8 +36995,8 @@ var $author$project$GenerateMain$otherFile = F2(
 						A2(
 							$author$project$Elm$Annotation$named,
 							_List_fromArray(
-								['Exception']),
-							'Throwable'),
+								['FatalError']),
+							'FatalError'),
 						$author$project$Elm$Annotation$list($author$project$Gen$Head$annotation_.tag)),
 					A2(
 						$author$project$Gen$BackendTask$call_.map,
@@ -38143,8 +38094,8 @@ var $author$project$GenerateMain$otherFile = F2(
 							A2(
 								$author$project$Elm$Annotation$named,
 								_List_fromArray(
-									['Exception']),
-								'Throwable'),
+									['FatalError']),
+								'FatalError'),
 							A2(
 								$author$project$Gen$Server$Response$annotation_.response,
 								A2($author$project$Elm$Annotation$named, _List_Nil, 'PageData'),
@@ -38228,8 +38179,8 @@ var $author$project$GenerateMain$otherFile = F2(
 						A2(
 							$author$project$Elm$Annotation$named,
 							_List_fromArray(
-								['Exception']),
-							'Throwable'),
+								['FatalError']),
+							'FatalError'),
 						$author$project$Elm$Annotation$maybe($author$project$Gen$Pages$Internal$NotFoundReason$annotation_.notFoundReason)),
 					A2(
 						$author$project$Elm$Case$maybe,
@@ -38637,8 +38588,8 @@ var $author$project$GenerateMain$otherFile = F2(
 							A2(
 								$author$project$Elm$Annotation$named,
 								_List_fromArray(
-									['Exception']),
-								'Throwable'),
+									['FatalError']),
+								'FatalError'),
 							A2(
 								$author$project$Gen$Server$Response$annotation_.response,
 								A2($author$project$Elm$Annotation$named, _List_Nil, 'ActionData'),

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

@@ -11397,7 +11397,7 @@ var $author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor = F2(
 			context.importContext,
 			_Utils_Tuple2(
 				_List_fromArray(
-					['Exception']),
+					['FatalError']),
 				'fromString')) + ' \"\")');
 		var _v0 = $stil4m$elm_syntax$Elm$Syntax$Node$value(node);
 		if (_v0.$ === 'FunctionDeclaration') {
@@ -11511,7 +11511,7 @@ var $author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor = F2(
 								context.importContext,
 								_Utils_Tuple2(
 									_List_fromArray(
-										['Exception']),
+										['FatalError']),
 									'fromString')) + ' \"\")');
 							return _List_fromArray(
 								[
@@ -11587,7 +11587,7 @@ var $author$project$Pages$Review$DeadCodeEliminateData$finalEvaluation = functio
 	var _v0 = A2(
 		$elm$core$Dict$get,
 		_List_fromArray(
-			['Exception']),
+			['FatalError']),
 		context.importContext);
 	if (_v0.$ === 'Nothing') {
 		var importAddRange = A2(
@@ -11609,7 +11609,7 @@ var $author$project$Pages$Review$DeadCodeEliminateData$finalEvaluation = functio
 				importAddRange,
 				_List_fromArray(
 					[
-						A2($jfmengels$elm_review$Review$Fix$insertAt, importAddRange.end, '\nimport Exception\n')
+						A2($jfmengels$elm_review$Review$Fix$insertAt, importAddRange.end, '\nimport FatalError\n')
 					]))
 			]);
 	} else {
@@ -26623,7 +26623,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport Exception\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = BackendTask.fail (Exception.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
+							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport FatalError\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = BackendTask.fail (FatalError.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26632,7 +26632,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'data = data\n       }'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport Exception\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = data\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport FatalError\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = data\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
@@ -26644,7 +26644,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\nimport BackendTask as DS\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = DS.fail (Exception.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
+							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\nimport BackendTask as DS\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = DS.fail (FatalError.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26653,7 +26653,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'data = data\n       }'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\nimport BackendTask as DS\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = data\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\nimport BackendTask as DS\nimport RouteBuilder exposing (Page, StaticPayload, single)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   single\n       { head = head\n       , data = data\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
@@ -26665,7 +26665,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Blog.Slug_ exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport Exception\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n    { slug : String }\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.preRender\n        { data = \\_ -> BackendTask.fail (Exception.fromString "")\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
+							'module Route.Blog.Slug_ exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport FatalError\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n    { slug : String }\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.preRender\n        { data = \\_ -> BackendTask.fail (FatalError.fromString "")\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26674,7 +26674,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'data = data'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Blog.Slug_ exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport Exception\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n    { slug : String }\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.preRender\n        { data = data\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Blog.Slug_ exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport BackendTask exposing (BackendTask)\nimport FatalError\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n    { slug : String }\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.preRender\n        { data = data\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
@@ -26686,7 +26686,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Request.oneOf []\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Request.oneOf []\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26696,7 +26696,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 								})),
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = \\_ -> Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = \\_ -> Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26705,7 +26705,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'action = action\n        }'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
@@ -26717,7 +26717,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Server.Request.oneOf []\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Server.Request.oneOf []\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26727,7 +26727,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 								})),
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = \\_ -> Server.Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = \\_ -> Server.Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26736,21 +26736,21 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'action = action\n        }'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = data\n        , action = action\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
 			'no Request.oneOf fix after replacement is made',
 			function (_v5) {
 				return $jfmengels$elm_review$Review$Test$expectNoErrors(
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\n\ntype alias Model =\n    {}\n\n\ntype alias Msg =\n    ()\n\n\ntype alias RouteParams =\n    {}\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n    RouteBuilder.serverRender\n        { head = head\n        , data = \\_ -> Request.oneOf []\n        }\n        |> RouteBuilder.buildNoState { view = view }\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
 			'no fix after replacement is made',
 			function (_v6) {
 				return $jfmengels$elm_review$Review$Test$expectNoErrors(
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport Exception\n\nimport BackendTask exposing (BackendTask)\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   RouteBuilder.single\n       { head = head\n       , data = BackendTask.fail (Exception.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport FatalError\n\nimport BackendTask exposing (BackendTask)\nimport RouteBuilder exposing (Page, StaticPayload)\nimport Pages.PageUrl exposing (PageUrl)\nimport Pages.Url\nimport Path\nimport Route exposing (Route)\nimport Shared\nimport View exposing (View)\n\n\ntype alias Model =\n   {}\n\n\ntype alias Msg =\n   ()\n\n\ntype alias RouteParams =\n   {}\n\n\ntype alias Data =\n   ()\n\n\nroute : StatelessRoute RouteParams Data ActionData\nroute =\n   RouteBuilder.single\n       { head = head\n       , data = BackendTask.fail (FatalError.fromString "")\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : BackendTask Data\ndata =\n    BackendTask.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
@@ -26762,7 +26762,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Shared exposing (Data, Model, Msg, template)\n\nimport Server.Request as Request\nimport Exception\n\nimport Browser.Navigation\nimport BackendTask\nimport Html exposing (Html)\nimport Html.Styled\nimport Pages.Flags\nimport Pages.PageUrl exposing (PageUrl)\nimport Path exposing (Path)\nimport Route exposing (Route)\nimport SharedTemplate exposing (SharedTemplate)\nimport TableOfContents\nimport View exposing (View)\nimport View.Header\n\n\ntemplate : SharedTemplate Msg Model Data msg\ntemplate =\n    { init = init\n    , update = update\n    , view = view\n    , data = BackendTask.fail (Exception.fromString "")\n    , subscriptions = subscriptions\n    , onPageChange = Just OnPageChange\n    }\n\n\ntype alias Data =\n    TableOfContents.TableOfContents TableOfContents.Data\n\n\ntype alias Model =\n    { showMobileMenu : Bool\n    , counter : Int\n    , navigationKey : Maybe Browser.Navigation.Key\n    }\n',
+							'module Shared exposing (Data, Model, Msg, template)\n\nimport Server.Request as Request\nimport FatalError\n\nimport Browser.Navigation\nimport BackendTask\nimport Html exposing (Html)\nimport Html.Styled\nimport Pages.Flags\nimport Pages.PageUrl exposing (PageUrl)\nimport Path exposing (Path)\nimport Route exposing (Route)\nimport SharedTemplate exposing (SharedTemplate)\nimport TableOfContents\nimport View exposing (View)\nimport View.Header\n\n\ntemplate : SharedTemplate Msg Model Data msg\ntemplate =\n    { init = init\n    , update = update\n    , view = view\n    , data = BackendTask.fail (FatalError.fromString "")\n    , subscriptions = subscriptions\n    , onPageChange = Just OnPageChange\n    }\n\n\ntype alias Data =\n    TableOfContents.TableOfContents TableOfContents.Data\n\n\ntype alias Model =\n    { showMobileMenu : Bool\n    , counter : Int\n    , navigationKey : Maybe Browser.Navigation.Key\n    }\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -26771,7 +26771,7 @@ var $author$project$Pages$Review$DeadCodeEliminateDataTest$all = A2(
 									under: 'data = data\n    ,'
 								}))
 						]),
-					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Shared exposing (Data, Model, Msg, template)\n\nimport Server.Request as Request\nimport Exception\n\nimport Browser.Navigation\nimport BackendTask\nimport Html exposing (Html)\nimport Html.Styled\nimport Pages.Flags\nimport Pages.PageUrl exposing (PageUrl)\nimport Path exposing (Path)\nimport Route exposing (Route)\nimport SharedTemplate exposing (SharedTemplate)\nimport TableOfContents\nimport View exposing (View)\nimport View.Header\n\n\ntemplate : SharedTemplate Msg Model Data msg\ntemplate =\n    { init = init\n    , update = update\n    , view = view\n    , data = data\n    , subscriptions = subscriptions\n    , onPageChange = Just OnPageChange\n    }\n\n\ntype alias Data =\n    TableOfContents.TableOfContents TableOfContents.Data\n\n\ntype alias Model =\n    { showMobileMenu : Bool\n    , counter : Int\n    , navigationKey : Maybe Browser.Navigation.Key\n    }\n'));
+					A2($jfmengels$elm_review$Review$Test$run, $author$project$Pages$Review$DeadCodeEliminateData$rule, 'module Shared exposing (Data, Model, Msg, template)\n\nimport Server.Request as Request\nimport FatalError\n\nimport Browser.Navigation\nimport BackendTask\nimport Html exposing (Html)\nimport Html.Styled\nimport Pages.Flags\nimport Pages.PageUrl exposing (PageUrl)\nimport Path exposing (Path)\nimport Route exposing (Route)\nimport SharedTemplate exposing (SharedTemplate)\nimport TableOfContents\nimport View exposing (View)\nimport View.Header\n\n\ntemplate : SharedTemplate Msg Model Data msg\ntemplate =\n    { init = init\n    , update = update\n    , view = view\n    , data = data\n    , subscriptions = subscriptions\n    , onPageChange = Just OnPageChange\n    }\n\n\ntype alias Data =\n    TableOfContents.TableOfContents TableOfContents.Data\n\n\ntype alias Model =\n    { showMobileMenu : Bool\n    , counter : Int\n    , navigationKey : Maybe Browser.Navigation.Key\n    }\n'));
 			})
 		]));
 var $elm$core$Debug$todo = _Debug_todo;

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: 4021965449, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 4015861069, 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,7 +82,7 @@ const verbosity = 0;
 // Create a long lived reporter worker
 const { Elm } = require("./Reporter.elm.js");
 const flags = {
-  initialSeed: 4021965449,
+  initialSeed: 4015861069,
   fuzzRuns: 100,
   mode: "consoleNoColor",
   verbosity: verbosity,

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

@@ -74,7 +74,7 @@ rule =
 
 finalEvaluation : Context -> List (Rule.Error {})
 finalEvaluation context =
-    case Dict.get [ "Exception" ] context.importContext of
+    case Dict.get [ "FatalError" ] context.importContext of
         Nothing ->
             let
                 importAddRange : { start : { row : Int, column : Int }, end : { row : Int, column : Int } }
@@ -86,7 +86,7 @@ finalEvaluation context =
                 , details = [ "" ]
                 }
                 importAddRange
-                [ Review.Fix.insertAt importAddRange.end "\nimport Exception\n"
+                [ Review.Fix.insertAt importAddRange.end "\nimport FatalError\n"
                 ]
             ]
 
@@ -128,7 +128,7 @@ declarationVisitor node context =
         exceptionFromString : String
         exceptionFromString =
             "("
-                ++ referenceFunction context.importContext ( [ "Exception" ], "fromString" )
+                ++ referenceFunction context.importContext ( [ "FatalError" ], "fromString" )
                 ++ " \"\")"
     in
     case Node.value node of
@@ -168,7 +168,7 @@ declarationVisitor node context =
                                                 -- TODO need to replace `action` as well
                                                 [ ("data = "
                                                     ++ referenceFunction context.importContext ( [ "BackendTask" ], "fail" )
-                                                    -- TODO add `import Exception` if not present (and use alias if present)
+                                                    -- TODO add `import FatalError` if not present (and use alias if present)
                                                     ++ " "
                                                     ++ exceptionFromString
                                                     ++ "\n    "
@@ -221,7 +221,7 @@ expressionVisitor node context =
                                     exceptionFromString : String
                                     exceptionFromString =
                                         "("
-                                            ++ referenceFunction context.importContext ( [ "Exception" ], "fromString" )
+                                            ++ referenceFunction context.importContext ( [ "FatalError" ], "fromString" )
                                             ++ " \"\")"
                                 in
                                 [ Rule.errorWithFix