From 9686f788eab5690edad7a6b692aa2a926cddc8b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 4 Jul 2026 17:22:11 +0200
Subject: Set conversation URL after accepting an invite

---
 src/JavaScript.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/JavaScript.hs')

diff --git a/src/JavaScript.hs b/src/JavaScript.hs
index 6c07370..aaf3747 100644
--- a/src/JavaScript.hs
+++ b/src/JavaScript.hs
@@ -6,6 +6,8 @@ module JavaScript (
     toJSVal,
     consoleLog,
     consoleLogVal,
+
+    historyPushState,
 ) where
 
 import JavaScript.Element
@@ -21,3 +23,9 @@ foreign import javascript unsafe "console.log($1)"
 
 foreign import javascript unsafe "console.log($1)"
     consoleLogVal :: JSVal -> IO ()
+
+
+historyPushState :: String -> IO ()
+historyPushState = js_history_pushState . toJSString
+foreign import javascript unsafe "history.pushState(null, '', $1)"
+    js_history_pushState :: JSString -> IO ()
-- 
cgit v1.2.3