1 files changed, 1 insertions, 1 deletions

diff --git a/webgui/src/Main.hs b/webgui/src/Main.hs
index e4b25e6..03cd318 100644
--- a/webgui/src/Main.hs
+++ b/webgui/src/Main.hs
@@ -500,7 +500,7 @@ withWebSocket :: (Config -> Window -> Event (Either WebSocketException URI) -> U
 withWebSocket setup c@(Config{..}) w = do
   (dataUpdate, triggerData) <- liftIO newEvent
   let
-    rcvEvents = runClient (baseUrlHost server) (baseUrlPort server) "/" $ forever . (triggerData . maybe (Left InvalidMessage) Right . parseURIReference . T.unpack <=< receiveData)
+    rcvEvents = runClient (baseUrlHost server) (baseUrlPort server) (baseUrlPath server) $ forever . (triggerData . maybe (Left InvalidMessage) Right . parseURIReference . T.unpack <=< receiveData)
   liftIOLater . void $ forkFinally rcvEvents (triggerData . Left . either Unhandled (const ProcessDied))
   void $ setup c w dataUpdate