ntrip-client 0.1.0 → 0.1.1
raw patch · 3 files changed
+63/−13 lines, 3 filesdep +bytestringdep +ntrip-clientdep +optparse-genericdep ~basenew-component:exe:ntrip-clientPVP ok
version bump matches the API change (PVP)
Dependencies added: bytestring, ntrip-client, optparse-generic
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- main/ntrip-client.hs +38/−0
- ntrip-client.cabal +23/−11
- src/Network/Ntrip/Client.hs +2/−2
+ main/ntrip-client.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# LANGUAGE OverloadedStrings #-}++import BasicPrelude hiding (mapM_)+import Data.ByteString+import Data.Conduit.List+import Network.Ntrip.Client+import Options.Generic+import System.IO++data Args = Args+ { host :: ByteString+ , port :: Maybe Int+ , path :: ByteString+ , user :: ByteString+ , password :: ByteString+ } deriving (Show, Generic)++instance ParseRecord Args++output :: ByteString -> IO ()+output bs = do+ hPut stdout bs+ hFlush stdout++main :: IO ()+main = do+ args <- getRecord "NTRIP Client"+ runNtrip+ (host args)+ (fromMaybe 2101 $ port args)+ (path args)+ (user args)+ (password args)+ sourceNull+ (mapM_ output)+
ntrip-client.cabal view
@@ -1,5 +1,5 @@ name: ntrip-client-version: 0.1.0+version: 0.1.1 synopsis: NTRIP client. description: Networked Transport of RTCM via Internet Protocol client. license: BSD3@@ -15,13 +15,25 @@ exposed-modules: Network.Ntrip.Client ghc-options: -Wall default-language: Haskell2010- build-depends: async,- async,- attoparsec,- base >= 4.7 && < 5,- base64-bytestring,- basic-prelude,- case-insensitive,- conduit,- conduit-extra,- http-types+ build-depends: async+ , attoparsec+ , base >= 4.7 && < 5+ , base64-bytestring+ , basic-prelude+ , case-insensitive+ , conduit+ , conduit-extra+ , http-types++executable ntrip-client+ hs-source-dirs: main+ main-is: ntrip-client.hs+ ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -O2+ default-language: Haskell2010+ build-depends: base+ , basic-prelude+ , bytestring+ , conduit+ , ntrip-client+ , optparse-generic+ , optparse-generic
src/Network/Ntrip/Client.hs view
@@ -32,8 +32,8 @@ parseNtrip :: Parser (ByteString, Status) parseNtrip = do- format <- parseFormat- code <- parseCode+ format <- parseFormat+ code <- parseCode message <- parseMessage return (format, Status code message) where