diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-24 14:44:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-24 14:44:57 -0400 |
| commit | 7b2bcfab392d387b89c3c251f0c9a8b9c0203aa8 (patch) | |
| tree | d96e09b920b878538bddb7b1c46f186dde7c2242 /Role/Developer.hs | |
| parent | 50da1dee420cc6071fe8697de25df49142cce8d5 (diff) | |
| download | debug-me-7b2bcfab392d387b89c3c251f0c9a8b9c0203aa8.tar.gz | |
better workaround for https://github.com/jaspervdj/websockets/issues/142
Diffstat (limited to 'Role/Developer.hs')
| -rw-r--r-- | Role/Developer.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index 4248591..0b8fdd9 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -17,14 +17,16 @@ import System.IO import qualified Data.ByteString as B import qualified Data.Text as T import Data.List +import Control.Monad run :: DeveloperOpts -> IO () run = run' developer . debugUrl run' :: (TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO ()) -> UrlString -> IO () -run' runner url = runClientApp $ clientApp connect Developer userMessages runner +run' runner url = void $ runClientApp app where connect = ConnectMode (T.pack url) + app = clientApp connect Developer userMessages runner userMessages :: LogMessage -> Maybe (Message Seen) userMessages (User m) = Just m |