query and hash prefixes (? and #) are now included automatically

jerith666 · Oct 29, 2018 · f064b5b · f064b5b
1 parent 6b06e3b
commit f064b5b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/client/Main.elm b/src/client/Main.elm
@@ -791,7 +791,7 @@ queryFor : AlbumBootstrap -> String
 queryFor model =
     let
         queryForPos pos =
-            Maybe.withDefault "" <| Maybe.map (\p -> "?s=" ++ String.fromFloat p) pos
+            Maybe.withDefault "" <| Maybe.map (\p -> "s=" ++ String.fromFloat p) pos
     in
     case model of
         Sizing _ _ _ _ ->
@@ -838,8 +838,7 @@ hashForAlbum model albumPage parents =
 
 hashFromAlbumPath : AlbumBootstrap -> List String -> List AlbumList -> String
 hashFromAlbumPath model titles parents =
-    "#"
-        ++ String.concat
+    String.concat
         (List.intersperse "/"
             (List.map
                 percentEncode