Add the Scroll module.

src/Scroll.purs

@@ -0,0 +1,15 @@
+module Scroll where
+
+import Prelude
+import Effect (Effect)
+import Effect.Console (log)
+import Halogen as H
+import Web.HTML (window)
+import Web.HTML.Window (scroll)
+
+scrollToTop :: Effect Unit
+scrollToTop = do
+  H.liftEffect do
+    w <- window
+    scroll 0 0 w
+  log "Scrolled to top of the page"