fix hash scrolling on first render

fsbolero · Nov 18, 2023 · 49b9d02 · 49b9d02
1 parent 7626b1b
commit 49b9d02
Showing 1 changed file with 10 additions and 13 deletions.
diff --git a/src/Bolero/Components.fs b/src/Bolero/Components.fs
@@ -231,22 +231,19 @@ and [<AbstractClass>]
             | None -> initModel, []
 
     override this.OnAfterRenderAsync(firstRender) =
-        if firstRender then
-            runProgramLoop()
-            if router.IsSome then
-                this.NavigationInterception.EnableNavigationInterceptionAsync()
-            else
-                Task.CompletedTask
-        else
+        task {
+            if firstRender then
+                runProgramLoop()
+                if router.IsSome then
+                    do! this.NavigationInterception.EnableNavigationInterceptionAsync()
+
             match routeHash with
-            | None ->
-                Task.CompletedTask
+            | None -> ()
             | Some h ->
                 routeHash <- None
-                task {
-                    let! elt = this.JSRuntime.InvokeAsync<IJSObjectReference>("document.getElementById", h)
-                    return! elt.InvokeVoidAsync("scrollIntoView")
-                }
+                let! elt = this.JSRuntime.InvokeAsync<IJSObjectReference>("document.getElementById", h)
+                return! elt.InvokeVoidAsync("scrollIntoView")
+        }
 
     override this.Render() =
         view