From e95dac748371afcad3ffddf5c98e5fcb0a8302b7 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 3 Aug 2016 13:41:42 +0200 Subject: connect websocket to correct path --- webgui/src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'webgui/src') 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 -- cgit v1.2.3