diff --git a/src/App.hs b/src/App.hs
--- a/src/App.hs
+++ b/src/App.hs
@@ -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")
diff --git a/ws.cabal b/ws.cabal
--- a/ws.cabal
+++ b/ws.cabal
@@ -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