ntrip-client 0.1.5 → 0.1.6

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

• ntrip-client.cabal +1/−1
• src/Network/Ntrip/Client.hs +1/−1

@@ -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

@@ -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