gnss-converters-0.1.10: main/RTCM32SBP.hs

-- |
-- Module:      RTCM32SBP
-- Copyright:   (c) 2015 Mark Fine
-- License:     BSD3
-- Maintainer:  Mark Fine <mark.fine@gmail.com>
-- Stability:   experimental
-- Portability: portable
--
-- RTCM3 to SBP tool.

import BasicPrelude
import Control.Monad.Trans.Resource
import Data.Conduit
import Data.Conduit.Binary
import qualified Data.Conduit.List as CL
import Data.Conduit.Serialization.Binary
import Data.RTCM3.SBP
import System.IO

main :: IO ()
main = runResourceT $
  sourceHandle stdin   =$=
  conduitDecode        =$=
  CL.mapMaybeM convert =$=
  CL.concat            =$=
  conduitEncode        $$
  sinkHandle stdout