use history replaceState for shallow replace on create share link

Author: tsnobip

src/Playground.res

@@ -1134,7 +1134,6 @@ module ControlPanel = {
     }
   }
 
-  @val @scope(("window", "location")) external origin: string = "origin"
   @react.component
   let make = (
     ~actionIndicatorKey: string,
@@ -1173,8 +1172,8 @@ module ControlPanel = {
 
         let querystring = params->Array.map(((key, value)) => key ++ "=" ++ value)->Array.join("&")
 
-        let url = origin ++ router.route ++ "?" ++ querystring
-        Next.Router.replace(router, url)
+        let url = router.route ++ "?" ++ querystring
+        Webapi.Window.History.replaceState(null, ~url)
         url
       }
 

src/bindings/Webapi.res

@@ -48,6 +48,13 @@ module Window = {
   @scope("window") @val external innerWidth: int = "innerWidth"
   @scope("window") @val external innerHeight: int = "innerHeight"
   @scope("window") @val external scrollY: int = "scrollY"
+
+  module History = {
+    @scope(("window", "history")) @val
+    external pushState: (nullable<'a>, @as(json`""`) _, ~url: string=?) => unit = "pushState"
+    @scope(("window", "history")) @val
+    external replaceState: (nullable<'a>, @as(json`""`) _, ~url: string=?) => unit = "replaceState"
+  }
 }
 
 module Fetch = {