diff --git a/ntrip-client.cabal b/ntrip-client.cabal
--- a/ntrip-client.cabal
+++ b/ntrip-client.cabal
@@ -1,5 +1,5 @@
 name:                  ntrip-client
-version:               0.1.5
+version:               0.1.6
 synopsis:              NTRIP client.
 description:           Networked Transport of RTCM via Internet Protocol client.
 license:               BSD3
diff --git a/src/Network/Ntrip/Client.hs b/src/Network/Ntrip/Client.hs
--- a/src/Network/Ntrip/Client.hs
+++ b/src/Network/Ntrip/Client.hs
@@ -35,7 +35,7 @@
 tcpClient :: MonadNtrip m => ByteString -> Int -> SourceByteString m -> SinkByteString m -> m ()
 tcpClient host port source sink =
   runGeneralTCPClient (clientSettings port host) $ \ad ->
-    race_ (source $$ appSink ad) (appSource ad $$ sink)
+    void $ concurrently (source $$ appSink ad) (appSource ad $$ sink)
 
 sourceNtrip :: MonadNtrip m => ByteString -> ByteString -> ByteString -> SourceByteString m -> SourceByteString m
 sourceNtrip path user password source = do