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.3
+version:               0.1.4
 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
@@ -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 ()