From ffad89ece76db819c46b390b612391ac4969b268 Mon Sep 17 00:00:00 2001
From: klntsky <klntsky@gmail.com>
Date: Fri, 29 Nov 2019 02:53:42 +0300
Subject: [PATCH] Listen for URI hash changes

---
 src/Docs/Search/App.purs             | 16 +++++++++++++++-
 src/Docs/Search/App/SearchField.purs | 10 +++++-----
 2 files changed, 20 insertions(+), 6 deletions(-)

diff --git a/src/Docs/Search/App.purs b/src/Docs/Search/App.purs
index aaa057e..0359584 100644
--- a/src/Docs/Search/App.purs
+++ b/src/Docs/Search/App.purs
@@ -12,6 +12,7 @@ import Control.Coroutine as Coroutine
 import Data.Maybe (Maybe(..))
 import Data.Newtype (wrap)
 import Effect (Effect)
+import Effect.Aff (launchAff_)
 import Halogen as H
 import Halogen.Aff as HA
 import Halogen.VDom.Driver (runUI)
@@ -21,10 +22,12 @@ import Web.DOM.Element as Element
 import Web.DOM.Node as Node
 import Web.DOM.ParentNode as ParentNode
 import Web.DOM.Text as Text
+import Web.Event.EventTarget (addEventListener, eventListener)
 import Web.HTML as HTML
 import Web.HTML.HTMLDocument as HTMLDocument
 import Web.HTML.HTMLElement (fromElement)
 import Web.HTML.Window as Window
+import Web.HTML.Event.HashChangeEvent.EventTypes (hashchange)
 
 main :: Effect Unit
 main = do
@@ -57,7 +60,18 @@ main = do
 
       -- We need to read the URI hash only when both components are initialized and
       -- the search field is subscribed to the main component.
-      sfio.query (SearchField.ReadURIHash unit)
+      void $ sfio.query $ H.tell SearchField.ReadURIHash
+
+      -- Subscribe to URI hash updates
+      H.liftEffect do
+
+        listener <-
+          eventListener \event ->
+            launchAff_ do
+              sfio.query $ H.tell SearchField.ReadURIHash
+
+        addEventListener hashchange listener true (Window.toEventTarget win)
+
 
 insertStyle :: Document.Document -> Effect Unit
 insertStyle doc = do
diff --git a/src/Docs/Search/App/SearchField.purs b/src/Docs/Search/App/SearchField.purs
index a70c190..f3f64c8 100644
--- a/src/Docs/Search/App/SearchField.purs
+++ b/src/Docs/Search/App/SearchField.purs
@@ -63,8 +63,11 @@ handleQuery
   .  Query a
   -> H.HalogenM State Action () SearchFieldMessage Aff (Maybe a)
 handleQuery (ReadURIHash next) = do
-  state <- H.get
-  H.raise (InputUpdated state.input)
+  oldInput <- H.get <#> _.input
+  newInput <- H.liftEffect URIHash.getInput
+  when (oldInput /= newInput) do
+    H.modify_ (_ { input = newInput })
+    H.raise (InputUpdated newInput)
   pure Nothing
 
 initialState :: forall i. i -> State
@@ -75,9 +78,6 @@ handleAction = case _ of
 
   InitKeyboardListener -> do
 
-    input <- H.liftEffect URIHash.getInput
-    H.modify_ (_ { input = input })
-
     document <- H.liftEffect $ Web.document =<< Web.window
     H.subscribe' \sid ->
       ES.eventListenerEventSource