1 files changed, 4 insertions(+), 2 deletions(-)

M Main.hs

@@ 119,7 119,8 @@ form :: forall t m a. DomBuilder t m => m a -> m (Event t (), a)
 form children = do
   let config =
         (def :: ElementConfig EventResult t (DomBuilderSpace m))
-          & elementConfig_eventSpec %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Submit (const preventDefault)
+          & elementConfig_eventSpec
+          %~ addEventSpecFlags (Proxy :: Proxy (DomBuilderSpace m)) Submit (const preventDefault)
   (domElement, a) <- element "form" config children
   pure (domEvent Submit domElement, a)
 


@@ 148,7 149,8 @@ searchWidget searchNowE = do
             [ searchTimeoutE,
               current (value searchBox) <@ searchNowE
             ]
-  holdDyn Nothing (Just <$> searchE) >>= improvingMaybe
+  holdDyn Nothing (Just <$> searchE)
+    >>= improvingMaybe <&> (uniqDynamic >>> fromUniqDynamic)
 
 type SearchFunc = String -> String -> String -> Bool -> [Fuzzy Acronym String]