diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-03 13:41:42 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-08-03 13:41:42 +0200 |
| commit | e95dac748371afcad3ffddf5c98e5fcb0a8302b7 (patch) | |
| tree | f986b0e2237c2f849341b9b33c370c5f6d922dc0 /webgui/src/Main.hs | |
| parent | 947fdb54351071745b6f35f668e39a2b1207918e (diff) | |
| download | thermoprint-e95dac748371afcad3ffddf5c98e5fcb0a8302b7.tar thermoprint-e95dac748371afcad3ffddf5c98e5fcb0a8302b7.tar.gz thermoprint-e95dac748371afcad3ffddf5c98e5fcb0a8302b7.tar.bz2 thermoprint-e95dac748371afcad3ffddf5c98e5fcb0a8302b7.tar.xz thermoprint-e95dac748371afcad3ffddf5c98e5fcb0a8302b7.zip | |
connect websocket to correct path
Diffstat (limited to 'webgui/src/Main.hs')
| -rw-r--r-- | webgui/src/Main.hs | 2 |
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 | |||
| 500 | withWebSocket setup c@(Config{..}) w = do | 500 | withWebSocket setup c@(Config{..}) w = do |
| 501 | (dataUpdate, triggerData) <- liftIO newEvent | 501 | (dataUpdate, triggerData) <- liftIO newEvent |
| 502 | let | 502 | let |
| 503 | rcvEvents = runClient (baseUrlHost server) (baseUrlPort server) "/" $ forever . (triggerData . maybe (Left InvalidMessage) Right . parseURIReference . T.unpack <=< receiveData) | 503 | rcvEvents = runClient (baseUrlHost server) (baseUrlPort server) (baseUrlPath server) $ forever . (triggerData . maybe (Left InvalidMessage) Right . parseURIReference . T.unpack <=< receiveData) |
| 504 | liftIOLater . void $ forkFinally rcvEvents (triggerData . Left . either Unhandled (const ProcessDied)) | 504 | liftIOLater . void $ forkFinally rcvEvents (triggerData . Left . either Unhandled (const ProcessDied)) |
| 505 | void $ setup c w dataUpdate | 505 | void $ setup c w dataUpdate |
| 506 | 506 | ||