ntrip-client 0.1.3 → 0.1.4

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

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

@@ -1,5 +1,5 @@ name:                  ntrip-client-version:               0.1.3+version:               0.1.4 synopsis:              NTRIP client. description:           Networked Transport of RTCM via Internet Protocol client. license:               BSD3

@@ -40,7 +40,7 @@   yield $ intercalate "\r\n"     [ methodGet <> " " <> path <> " HTTP/1.0"     , original hUserAgent <> ": NTRIP ntrip-client/0.0"-    , original hAuthorization <> ": " <> encode (user <> ":" <> password)+    , original hAuthorization <> ": Basic " <> encode (user <> ":" <> password)     , ""     , ""     ]@@ -63,8 +63,10 @@ sinkNtrip :: MonadNtrip m => SinkByteString m -> SinkByteString m sinkNtrip sink = do   (format, status) <- sinkParser parseNtrip-  unless (format == "ICY") $ throwIO $ userError "Unsupported format"-  unless (status == status200) $ throwIO $ userError "Bad status"+  unless (format == "ICY") $+    throwIO $ userError "Unsupported format"+  unless (status == status200) $+    throwIO $ userError "Bad status"   sink  runNtrip :: MonadNtrip m => ByteString -> SourceByteString m -> SinkByteString m -> m ()