ws 0.0.2 → 0.0.3

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

src/App.hs +4/−2
ws.cabal +1/−1

src/App.hs view

@@ -19,7 +19,7 @@ import Control.Monad.Reader (ask) import Control.Monad.Trans (lift) import Control.Monad.Catch (handle)-import Control.Concurrent.Async (async, withAsync, wait)+import Control.Concurrent.Async (async, link, withAsync, wait) import Control.Concurrent.Chan (Chan, newChan, writeChan, readChan) import System.Exit (exitSuccess, exitFailure) import System.Console.Haskeline (getExternalPrint, getInputLine)@@ -32,7 +32,7 @@    outgoingChan <- liftIO newChan -  _ <- liftIO $ async $+  mainThread <- liftIO $ async $     handle (handleConnException print') $       if envSecure env       then runSecureClient@@ -45,6 +45,8 @@             (fromIntegral $ envPort env)             (envPath env)             (ws print' outgoingChan)++  liftIO (link mainThread)    forever $ do     mx <- getInputLine $ T.unpack $ (if envSecure env then "wss" else "ws")

ws.cabal view

@@ -1,5 +1,5 @@ Name:                   ws-Version:                0.0.2+Version:                0.0.3 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                BSD3