elm-pages 3.0.0-beta.1 → 3.0.0-beta.3

package/codegen/elm-pages-codegen.js

@@ -35312,7 +35312,11 @@ var $author$project$GenerateMain$otherFile = F2(
 						$author$project$Elm$string('Model mismatch')),
 						_Utils_Tuple2(
 						'body',
-						$author$project$Gen$Html$text('Model mismatch'))
+						$author$project$Elm$list(
+							_List_fromArray(
+								[
+									$author$project$Gen$Html$text('Model mismatch')
+								])))
 					])));
 		var view = A3(
 			$author$project$Elm$Declare$function,
@@ -35424,9 +35428,10 @@ var $author$project$GenerateMain$otherFile = F2(
 													_Utils_Tuple2('title', $author$project$Elm$Annotation$string),
 													_Utils_Tuple2(
 													'body',
-													$author$project$Gen$Html$annotation_.html(
-														$author$project$Gen$Pages$Msg$annotation_.msg(
-															A2($author$project$Elm$Annotation$named, _List_Nil, 'Msg'))))
+													$author$project$Elm$Annotation$list(
+														$author$project$Gen$Html$annotation_.html(
+															$author$project$Gen$Pages$Msg$annotation_.msg(
+																A2($author$project$Elm$Annotation$named, _List_Nil, 'Msg')))))
 												])))),
 									_Utils_Tuple2(
 									'head',
@@ -35790,12 +35795,16 @@ var $author$project$GenerateMain$otherFile = F2(
 																				$author$project$Elm$string('Page not found')),
 																				_Utils_Tuple2(
 																				'body',
-																				A2(
-																					$author$project$Gen$Html$div,
-																					_List_Nil,
+																				$author$project$Elm$list(
 																					_List_fromArray(
 																						[
-																							$author$project$Gen$Html$text('This page could not be found.')
+																							A2(
+																							$author$project$Gen$Html$div,
+																							_List_Nil,
+																							_List_fromArray(
+																								[
+																									$author$project$Gen$Html$text('This page could not be found.')
+																								]))
 																						])))
 																			]));
 																})),

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

@@ -11128,60 +11128,131 @@ var $jfmengels$elm_review$Review$Rule$errorWithFix = F3(
 			fixes,
 			A2($jfmengels$elm_review$Review$Rule$error, info, range));
 	});
-var $author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied = function (expression) {
-	switch (expression.$) {
-		case 'LambdaExpression':
-			var info = expression.a;
-			var _v1 = $stil4m$elm_syntax$Elm$Syntax$Node$value(info.expression);
-			if (_v1.$ === 'Application') {
-				var applicationNodes = _v1.a;
-				var _v2 = A2($elm$core$List$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, applicationNodes);
-				_v2$2:
-				while (true) {
-					if (((_v2.b && (_v2.a.$ === 'FunctionOrValue')) && _v2.a.a.b) && (!_v2.a.a.b.b)) {
-						switch (_v2.a.a.a) {
-							case 'DataSource':
-								if (_v2.a.b === 'fail') {
+var $jfmengels$elm_review$Review$ModuleNameLookupTable$Internal$toRangeLike = function (_v0) {
+	var end = _v0.end;
+	var start = _v0.start;
+	return _Utils_Tuple2(
+		_Utils_Tuple2(start.row, start.column),
+		_Utils_Tuple2(end.row, end.column));
+};
+var $jfmengels$elm_review$Review$ModuleNameLookupTable$moduleNameFor = F2(
+	function (_v0, _v1) {
+		var dict = _v0.a;
+		var range = _v1.a;
+		return A2(
+			$elm$core$Dict$get,
+			$jfmengels$elm_review$Review$ModuleNameLookupTable$Internal$toRangeLike(range),
+			dict);
+	});
+var $author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied = F2(
+	function (lookupTable, expression) {
+		switch (expression.$) {
+			case 'LambdaExpression':
+				var info = expression.a;
+				var _v1 = $stil4m$elm_syntax$Elm$Syntax$Node$value(info.expression);
+				if (_v1.$ === 'Application') {
+					var applicationNodes = _v1.a;
+					var _v2 = A2($elm$core$List$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, applicationNodes);
+					_v2$2:
+					while (true) {
+						if (_v2.b && (_v2.a.$ === 'FunctionOrValue')) {
+							switch (_v2.a.b) {
+								case 'fail':
 									var _v3 = _v2.a;
-									var _v4 = _v3.a;
-									return true;
-								} else {
-									break _v2$2;
-								}
-							case 'Request':
-								if ((((_v2.a.b === 'oneOf') && _v2.b.b) && (_v2.b.a.$ === 'ListExpr')) && (!_v2.b.a.a.b)) {
-									var _v5 = _v2.a;
-									var _v6 = _v5.a;
-									var _v7 = _v2.b;
-									return true;
-								} else {
+									var resolvedModuleName = A2(
+										$elm$core$Maybe$withDefault,
+										_List_Nil,
+										A2(
+											$elm$core$Maybe$andThen,
+											function (functionNode) {
+												return A2($jfmengels$elm_review$Review$ModuleNameLookupTable$moduleNameFor, lookupTable, functionNode);
+											},
+											$elm$core$List$head(applicationNodes)));
+									return _Utils_eq(
+										resolvedModuleName,
+										_List_fromArray(
+											['DataSource']));
+								case 'oneOf':
+									if ((_v2.b.b && (_v2.b.a.$ === 'ListExpr')) && (!_v2.b.a.a.b)) {
+										var _v4 = _v2.a;
+										var _v5 = _v2.b;
+										var resolvedModuleName = A2(
+											$elm$core$Maybe$withDefault,
+											_List_Nil,
+											A2(
+												$elm$core$Maybe$andThen,
+												function (functionNode) {
+													return A2($jfmengels$elm_review$Review$ModuleNameLookupTable$moduleNameFor, lookupTable, functionNode);
+												},
+												$elm$core$List$head(applicationNodes)));
+										return _Utils_eq(
+											resolvedModuleName,
+											_List_fromArray(
+												['Server', 'Request']));
+									} else {
+										break _v2$2;
+									}
+								default:
 									break _v2$2;
-								}
-							default:
-								break _v2$2;
+							}
+						} else {
+							break _v2$2;
 						}
-					} else {
-						break _v2$2;
 					}
+					return false;
+				} else {
+					return false;
 				}
+			case 'Application':
+				var applicationNodes = expression.a;
+				var _v6 = A2($elm$core$List$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, applicationNodes);
+				if ((_v6.b && (_v6.a.$ === 'FunctionOrValue')) && (_v6.a.b === 'fail')) {
+					var _v7 = _v6.a;
+					var resolvedModuleName = A2(
+						$elm$core$Maybe$withDefault,
+						_List_Nil,
+						A2(
+							$elm$core$Maybe$andThen,
+							function (functionNode) {
+								return A2($jfmengels$elm_review$Review$ModuleNameLookupTable$moduleNameFor, lookupTable, functionNode);
+							},
+							$elm$core$List$head(applicationNodes)));
+					return _Utils_eq(
+						resolvedModuleName,
+						_List_fromArray(
+							['DataSource']));
+				} else {
+					return false;
+				}
+			default:
 				return false;
+		}
+	});
+var $author$project$Pages$Review$DeadCodeEliminateData$referenceFunction = F2(
+	function (dict, _v0) {
+		var rawModuleName = _v0.a;
+		var rawFunctionName = _v0.b;
+		var _v1 = function () {
+			var _v2 = A2($elm$core$Dict$get, rawModuleName, dict);
+			if (_v2.$ === 'Just') {
+				var import_ = _v2.a;
+				return _Utils_Tuple2(
+					A2($elm$core$Maybe$withDefault, rawModuleName, import_.moduleAlias),
+					rawFunctionName);
 			} else {
-				return false;
-			}
-		case 'Application':
-			var applicationNodes = expression.a;
-			var _v8 = A2($elm$core$List$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, applicationNodes);
-			if (((((_v8.b && (_v8.a.$ === 'FunctionOrValue')) && _v8.a.a.b) && (_v8.a.a.a === 'DataSource')) && (!_v8.a.a.b.b)) && (_v8.a.b === 'fail')) {
-				var _v9 = _v8.a;
-				var _v10 = _v9.a;
-				return true;
-			} else {
-				return false;
+				return _Utils_Tuple2(rawModuleName, rawFunctionName);
 			}
-		default:
-			return false;
-	}
-};
+		}();
+		var moduleName = _v1.a;
+		var functionName = _v1.b;
+		return A2(
+			$elm$core$String$join,
+			'.',
+			_Utils_ap(
+				moduleName,
+				_List_fromArray(
+					[functionName])));
+	});
 var $jfmengels$elm_review$Review$Error$Replacement = F2(
 	function (a, b) {
 		return {$: 'Replacement', a: a, b: b};
@@ -11207,7 +11278,9 @@ var $author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor = F2(
 							var _v3 = $stil4m$elm_syntax$Elm$Syntax$Node$value(recordSetter);
 							var keyNode = _v3.a;
 							var valueNode = _v3.b;
-							return (($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'data') || ($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'action')) ? ($author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied(
+							return (($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'data') || ($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'action')) ? (A2(
+								$author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied,
+								context.lookupTable,
 								$stil4m$elm_syntax$Elm$Syntax$Node$value(valueNode)) ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(recordSetter)) : $elm$core$Maybe$Nothing;
 						},
 						setters));
@@ -11233,7 +11306,13 @@ var $author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor = F2(
 												A2(
 												$jfmengels$elm_review$Review$Fix$replaceRangeBy,
 												$stil4m$elm_syntax$Elm$Syntax$Node$range(dataValue),
-												'data = DataSource.fail \"\"\n    ')
+												'data = ' + (A2(
+													$author$project$Pages$Review$DeadCodeEliminateData$referenceFunction,
+													context.importContext,
+													_Utils_Tuple2(
+														_List_fromArray(
+															['DataSource']),
+														'fail')) + ' \"\"\n    '))
 											]))
 									]),
 								context);
@@ -11246,22 +11325,6 @@ var $author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor = F2(
 			return _Utils_Tuple2(_List_Nil, context);
 		}
 	});
-var $jfmengels$elm_review$Review$ModuleNameLookupTable$Internal$toRangeLike = function (_v0) {
-	var end = _v0.end;
-	var start = _v0.start;
-	return _Utils_Tuple2(
-		_Utils_Tuple2(start.row, start.column),
-		_Utils_Tuple2(end.row, end.column));
-};
-var $jfmengels$elm_review$Review$ModuleNameLookupTable$moduleNameFor = F2(
-	function (_v0, _v1) {
-		var dict = _v0.a;
-		var range = _v1.a;
-		return A2(
-			$elm$core$Dict$get,
-			$jfmengels$elm_review$Review$ModuleNameLookupTable$Internal$toRangeLike(range),
-			dict);
-	});
 var $author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor = F2(
 	function (node, context) {
 		var _v0 = $stil4m$elm_syntax$Elm$Syntax$Node$value(node);
@@ -11289,7 +11352,9 @@ var $author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor = F2(
 						var _v9 = $stil4m$elm_syntax$Elm$Syntax$Node$value(recordSetter);
 						var keyNode = _v9.a;
 						var valueNode = _v9.b;
-						return (($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'data') || ($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'action')) ? ($author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied(
+						return (($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'data') || ($stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode) === 'action')) ? (A2(
+							$author$project$Pages$Review$DeadCodeEliminateData$isAlreadyApplied,
+							context.lookupTable,
 							$stil4m$elm_syntax$Elm$Syntax$Node$value(valueNode)) ? $elm$core$Maybe$Nothing : $elm$core$Maybe$Just(
 							_Utils_Tuple2(
 								$stil4m$elm_syntax$Elm$Syntax$Node$value(keyNode),
@@ -11320,13 +11385,37 @@ var $author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor = F2(
 											key + (' = ' + function () {
 												switch (pageBuilderName) {
 													case 'preRender':
-														return '\\_ -> DataSource.fail \"\"';
+														return '\\_ -> ' + (A2(
+															$author$project$Pages$Review$DeadCodeEliminateData$referenceFunction,
+															context.importContext,
+															_Utils_Tuple2(
+																_List_fromArray(
+																	['DataSource']),
+																'fail')) + ' \"\"');
 													case 'preRenderWithFallback':
-														return '\\_ -> DataSource.fail \"\"';
+														return '\\_ -> ' + (A2(
+															$author$project$Pages$Review$DeadCodeEliminateData$referenceFunction,
+															context.importContext,
+															_Utils_Tuple2(
+																_List_fromArray(
+																	['DataSource']),
+																'fail')) + ' \"\"');
 													case 'serverRender':
-														return '\\_ -> Request.oneOf []\n        ';
+														return '\\_ -> ' + (A2(
+															$author$project$Pages$Review$DeadCodeEliminateData$referenceFunction,
+															context.importContext,
+															_Utils_Tuple2(
+																_List_fromArray(
+																	['Server', 'Request']),
+																'oneOf')) + ' []\n        ');
 													case 'single':
-														return 'DataSource.fail \"\"\n       ';
+														return A2(
+															$author$project$Pages$Review$DeadCodeEliminateData$referenceFunction,
+															context.importContext,
+															_Utils_Tuple2(
+																_List_fromArray(
+																	['DataSource']),
+																'fail')) + ' \"\"\n       ';
 													default:
 														return 'data';
 												}
@@ -12922,6 +13011,46 @@ var $jfmengels$elm_review$Review$Rule$fromModuleRuleSchema = function (moduleVis
 				}));
 	}
 };
+var $author$project$Pages$Review$DeadCodeEliminateData$AllExposed = {$: 'AllExposed'};
+var $author$project$Pages$Review$DeadCodeEliminateData$SomeExposed = function (a) {
+	return {$: 'SomeExposed', a: a};
+};
+var $author$project$Pages$Review$DeadCodeEliminateData$toImportContext = function (import_) {
+	return _Utils_Tuple2(
+		$stil4m$elm_syntax$Elm$Syntax$Node$value(import_.moduleName),
+		{
+			exposedFunctions: A2(
+				$elm$core$Maybe$withDefault,
+				$author$project$Pages$Review$DeadCodeEliminateData$SomeExposed(_List_Nil),
+				A2(
+					$elm$core$Maybe$map,
+					function (exposingList) {
+						if (exposingList.$ === 'All') {
+							return $author$project$Pages$Review$DeadCodeEliminateData$AllExposed;
+						} else {
+							var nodes = exposingList.a;
+							return $author$project$Pages$Review$DeadCodeEliminateData$AllExposed;
+						}
+					},
+					A2($elm$core$Maybe$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, import_.exposingList))),
+			moduleAlias: A2($elm$core$Maybe$map, $stil4m$elm_syntax$Elm$Syntax$Node$value, import_.moduleAlias),
+			moduleName: $stil4m$elm_syntax$Elm$Syntax$Node$value(import_.moduleName)
+		});
+};
+var $author$project$Pages$Review$DeadCodeEliminateData$importVisitor = F2(
+	function (node, context) {
+		var _v0 = $author$project$Pages$Review$DeadCodeEliminateData$toImportContext(
+			$stil4m$elm_syntax$Elm$Syntax$Node$value(node));
+		var key = _v0.a;
+		var value = _v0.b;
+		return _Utils_Tuple2(
+			_List_Nil,
+			_Utils_update(
+				context,
+				{
+					importContext: A3($elm$core$Dict$insert, key, value, context.importContext)
+				}));
+	});
 var $jfmengels$elm_review$Review$Rule$withModuleNameLookupTable = function (_v0) {
 	var fn = _v0.a;
 	var requested = _v0.b.a;
@@ -12939,7 +13068,7 @@ var $author$project$Pages$Review$DeadCodeEliminateData$initialContext = $jfmenge
 	$jfmengels$elm_review$Review$Rule$initContextCreator(
 		F2(
 			function (lookupTable, _v0) {
-				return {lookupTable: lookupTable};
+				return {importContext: $elm$core$Dict$empty, lookupTable: lookupTable};
 			})));
 var $jfmengels$elm_review$Review$Rule$newModuleRuleSchemaUsingContextCreator = F2(
 	function (name, moduleContextCreator) {
@@ -12966,14 +13095,27 @@ var $jfmengels$elm_review$Review$Rule$withExpressionEnterVisitor = F2(
 					expressionVisitorsOnEnter: A2($elm$core$List$cons, visitor, schema.expressionVisitorsOnEnter)
 				}));
 	});
+var $jfmengels$elm_review$Review$Rule$withImportVisitor = F2(
+	function (visitor, _v0) {
+		var schema = _v0.a;
+		return $jfmengels$elm_review$Review$Rule$ModuleRuleSchema(
+			_Utils_update(
+				schema,
+				{
+					importVisitors: A2($elm$core$List$cons, visitor, schema.importVisitors)
+				}));
+	});
 var $author$project$Pages$Review$DeadCodeEliminateData$rule = $jfmengels$elm_review$Review$Rule$fromModuleRuleSchema(
 	A2(
-		$jfmengels$elm_review$Review$Rule$withDeclarationEnterVisitor,
-		$author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor,
+		$jfmengels$elm_review$Review$Rule$withImportVisitor,
+		$author$project$Pages$Review$DeadCodeEliminateData$importVisitor,
 		A2(
-			$jfmengels$elm_review$Review$Rule$withExpressionEnterVisitor,
-			$author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor,
-			A2($jfmengels$elm_review$Review$Rule$newModuleRuleSchemaUsingContextCreator, 'Pages.Review.DeadCodeEliminateData', $author$project$Pages$Review$DeadCodeEliminateData$initialContext))));
+			$jfmengels$elm_review$Review$Rule$withDeclarationEnterVisitor,
+			$author$project$Pages$Review$DeadCodeEliminateData$declarationVisitor,
+			A2(
+				$jfmengels$elm_review$Review$Rule$withExpressionEnterVisitor,
+				$author$project$Pages$Review$DeadCodeEliminateData$expressionVisitor,
+				A2($jfmengels$elm_review$Review$Rule$newModuleRuleSchemaUsingContextCreator, 'Pages.Review.DeadCodeEliminateData', $author$project$Pages$Review$DeadCodeEliminateData$initialContext)))));
 var $jfmengels$elm_review$Review$Project$Internal$Project = function (a) {
 	return {$: 'Project', a: a};
 };
@@ -24131,16 +24273,6 @@ var $jfmengels$elm_review$Review$Rule$withExpressionExitVisitor = F2(
 					expressionVisitorsOnExit: A2($elm$core$List$cons, visitor, schema.expressionVisitorsOnExit)
 				}));
 	});
-var $jfmengels$elm_review$Review$Rule$withImportVisitor = F2(
-	function (visitor, _v0) {
-		var schema = _v0.a;
-		return $jfmengels$elm_review$Review$Rule$ModuleRuleSchema(
-			_Utils_update(
-				schema,
-				{
-					importVisitors: A2($elm$core$List$cons, visitor, schema.importVisitors)
-				}));
-	});
 var $jfmengels$elm_review$Review$Rule$withModuleDefinitionVisitor = F2(
 	function (visitor, _v0) {
 		var schema = _v0.a;
@@ -24565,7 +24697,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 DataSource exposing (DataSource)\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 = DataSource.fail ""\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n',
+							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport DataSource exposing (DataSource)\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 = DataSource.fail ""\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -24574,11 +24706,11 @@ 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 DataSource exposing (DataSource)\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 : DataSource Data\ndata =\n    DataSource.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 DataSource exposing (DataSource)\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 : DataSource Data\ndata =\n    DataSource.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
-			'replaces data record setter with non-empty RouteParams',
+			'supports aliased DataSource module import',
 			function (_v1) {
 				return A2(
 					$jfmengels$elm_review$Review$Test$expectErrors,
@@ -24586,7 +24718,28 @@ 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 DataSource exposing (DataSource)\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 = \\_ -> DataSource.fail ""\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n',
+							'module Route.Index exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\nimport DataSource 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 ""\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n',
+							$jfmengels$elm_review$Review$Test$error(
+								{
+									details: _List_fromArray(
+										['']),
+									message: 'Codemod',
+									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 DataSource 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 : DataSource Data\ndata =\n    DataSource.succeed ()\n'));
+			}),
+			A2(
+			$elm_explorations$test$Test$test,
+			'replaces data record setter with non-empty RouteParams',
+			function (_v2) {
+				return A2(
+					$jfmengels$elm_review$Review$Test$expectErrors,
+					_List_fromArray(
+						[
+							A2(
+							$jfmengels$elm_review$Review$Test$whenFixed,
+							'module Route.Blog.Slug_ exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\n\nimport DataSource exposing (DataSource)\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 = \\_ -> DataSource.fail ""\n        , head = head\n        , pages = pages\n        }\n        |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n',
 							$jfmengels$elm_review$Review$Test$error(
 								{
 									details: _List_fromArray(
@@ -24595,19 +24748,50 @@ 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 DataSource exposing (DataSource)\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 : DataSource Data\ndata =\n    DataSource.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 DataSource exposing (DataSource)\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 : DataSource Data\ndata =\n    DataSource.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
 			'replaces data record setter with RouteBuilder.serverRendered',
-			function (_v2) {
+			function (_v3) {
+				return A2(
+					$jfmengels$elm_review$Review$Test$expectErrors,
+					_List_fromArray(
+						[
+							A2(
+							$jfmengels$elm_review$Review$Test$whenFixed,
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\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(
+										['']),
+									message: 'Codemod',
+									under: 'data = data\n        ,'
+								})),
+							A2(
+							$jfmengels$elm_review$Review$Test$whenFixed,
+							'module Route.Login exposing (Data, Model, Msg, route)\n\nimport Server.Request as Request\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(
+										['']),
+									message: 'Codemod',
+									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\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,
+			'uses appropriate import alias for Server.Request module',
+			function (_v4) {
 				return A2(
 					$jfmengels$elm_review$Review$Test$expectErrors,
 					_List_fromArray(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Route.Login exposing (Data, Model, Msg, route)\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\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(
@@ -24617,7 +24801,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\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\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(
@@ -24626,33 +24810,33 @@ 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\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\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 (_v3) {
+			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\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\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 (_v4) {
+			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 DataSource exposing (DataSource)\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 = DataSource.fail ""\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.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 DataSource exposing (DataSource)\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 = DataSource.fail ""\n       }\n       |> RouteBuilder.buildNoState { view = view }\n\n\ndata : DataSource Data\ndata =\n    DataSource.succeed ()\n'));
 			}),
 			A2(
 			$elm_explorations$test$Test$test,
 			'replaces data record setter in Shared module',
-			function (_v5) {
+			function (_v7) {
 				return A2(
 					$jfmengels$elm_review$Review$Test$expectErrors,
 					_List_fromArray(
 						[
 							A2(
 							$jfmengels$elm_review$Review$Test$whenFixed,
-							'module Shared exposing (Data, Model, Msg, template)\n\nimport Browser.Navigation\nimport DataSource\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 = DataSource.fail ""\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\n\nimport Browser.Navigation\nimport DataSource\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 = DataSource.fail ""\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(
@@ -24661,7 +24845,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 Browser.Navigation\nimport DataSource\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\n\nimport Browser.Navigation\nimport DataSource\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: 3296225071, fuzzRuns: 100, filter: null };
+const flags = { initialSeed: 412230770, 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: 3296225071,
+  initialSeed: 412230770,
   fuzzRuns: 100,
   mode: "consoleNoColor",
   verbosity: verbosity,