elm-pages 3.0.0-beta.29 → 3.0.0-beta.30

package/codegen/elm-pages-codegen.cjs

@@ -29601,6 +29601,59 @@ var $author$project$Gen$Pages$Fetcher$call_ = {
 					[submitArg, submitArg0]));
 		})
 };
+var $author$project$Gen$Pages$PageUrl$call_ = {
+	parseQueryParams: function (parseQueryParamsArg) {
+		return A2(
+			$author$project$Elm$apply,
+			$author$project$Elm$value(
+				{
+					annotation: $elm$core$Maybe$Just(
+						A2(
+							$author$project$Elm$Annotation$function,
+							_List_fromArray(
+								[$author$project$Elm$Annotation$string]),
+							A3(
+								$author$project$Elm$Annotation$namedWith,
+								_List_Nil,
+								'Dict',
+								_List_fromArray(
+									[
+										$author$project$Elm$Annotation$string,
+										$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string)
+									])))),
+					importFrom: _List_fromArray(
+						['Pages', 'PageUrl']),
+					name: 'parseQueryParams'
+				}),
+			_List_fromArray(
+				[parseQueryParamsArg]));
+	},
+	toUrl: function (toUrlArg) {
+		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, 'PageUrl', _List_Nil)
+								]),
+							A3(
+								$author$project$Elm$Annotation$namedWith,
+								_List_fromArray(
+									['Url']),
+								'Url',
+								_List_Nil))),
+					importFrom: _List_fromArray(
+						['Pages', 'PageUrl']),
+					name: 'toUrl'
+				}),
+			_List_fromArray(
+				[toUrlArg]));
+	}
+};
 var $author$project$Gen$PagesMsg$call_ = {
 	fromMsg: function (fromMsgArg) {
 		return A2(
@@ -29672,54 +29725,6 @@ var $author$project$Gen$PagesMsg$call_ = {
 					[mapArg, mapArg0]));
 		})
 };
-var $author$project$Gen$QueryParams$call_ = {
-	fromString: function (fromStringArg) {
-		return A2(
-			$author$project$Elm$apply,
-			$author$project$Elm$value(
-				{
-					annotation: $elm$core$Maybe$Just(
-						A2(
-							$author$project$Elm$Annotation$function,
-							_List_fromArray(
-								[$author$project$Elm$Annotation$string]),
-							A3(
-								$author$project$Elm$Annotation$namedWith,
-								_List_Nil,
-								'Dict',
-								_List_fromArray(
-									[
-										$author$project$Elm$Annotation$string,
-										$author$project$Elm$Annotation$list($author$project$Elm$Annotation$string)
-									])))),
-					importFrom: _List_fromArray(
-						['QueryParams']),
-					name: 'fromString'
-				}),
-			_List_fromArray(
-				[fromStringArg]));
-	},
-	toString: function (toStringArg) {
-		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, 'QueryParams', _List_Nil)
-								]),
-							$author$project$Elm$Annotation$string)),
-					importFrom: _List_fromArray(
-						['QueryParams']),
-					name: 'toString'
-				}),
-			_List_fromArray(
-				[toStringArg]));
-	}
-};
 var $author$project$Gen$Tuple$call_ = {
 	first: function (firstArg) {
 		return A2(
@@ -36920,7 +36925,7 @@ var $author$project$GenerateMain$otherFile = F2(
 																							$author$project$Gen$Dict$empty,
 																							A2(
 																								$author$project$Gen$Maybe$map,
-																								$author$project$Gen$QueryParams$call_.fromString,
+																								$author$project$Gen$Pages$PageUrl$call_.parseQueryParams,
 																								A2($author$project$Elm$get, 'query', record)))),
 																						_Utils_Tuple2(
 																						'fragment',

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "elm-pages",
   "type": "module",
-  "version": "3.0.0-beta.29",
+  "version": "3.0.0-beta.30",
   "homepage": "https://elm-pages.com",
   "moduleResolution": "node",
   "description": "Type-safe static sites, written in pure elm with your own custom elm-markup syntax.",

package/src/Pages/PageUrl.elm

@@ -1,10 +1,15 @@
-module Pages.PageUrl exposing (PageUrl, toUrl)
+module Pages.PageUrl exposing
+    ( PageUrl, toUrl
+    , parseQueryParams
+    )
 
 {-| Same as a Url in `elm/url`, but slightly more structured. The path portion of the URL is parsed into a `List String` representing each segment, and
 the query params are parsed into a `Dict String (List String)`.
 
 @docs PageUrl, toUrl
 
+@docs parseQueryParams
+
 -}
 
 import Dict exposing (Dict)
@@ -39,3 +44,9 @@ toUrl url =
             url.query |> QueryParams.toString |> Just
     , fragment = url.fragment
     }
+
+
+{-| -}
+parseQueryParams : String -> Dict String (List String)
+parseQueryParams =
+    QueryParams.fromString

package/src/QueryParams.elm

@@ -31,18 +31,8 @@ toString queryParams =
 
 {-| -}
 fromString : String -> Dict String (List String)
-fromString queryParams =
-    prepareQuery (Just queryParams)
-
-
-prepareQuery : Maybe String -> Dict String (List String)
-prepareQuery maybeQuery =
-    case maybeQuery of
-        Nothing ->
-            Dict.empty
-
-        Just qry ->
-            List.foldr addParam Dict.empty (String.split "&" qry)
+fromString query =
+    List.foldr addParam Dict.empty (String.split "&" query)
 
 
 addParam : String -> Dict String (List String) -> Dict String (List String)