gnss-converters 0.1.10 → 0.1.11

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• gnss-converters.cabal +1/−1
• src/Data/RTCM3/SBP.hs +5/−5

@@ -1,5 +1,5 @@ name:                  gnss-converters-version:               0.1.10+version:               0.1.11 synopsis:              GNSS Converters. description:           Haskell bindings for GNSS converters. homepage:              http://github.com/swift-nav/gnss-converters

@@ -15,7 +15,7 @@ import BasicPrelude import Control.Lens import Data.Bits-import Data.HashMap.Strict+import qualified Data.HashMap.Strict as H import Data.List.Extra hiding (concat, map) import Data.Time import Data.Word@@ -104,8 +104,8 @@  -- | Map L2 codes to SBP GnssSignal codes ---l2codeToSBPSignalCode :: HashMap Word8 Word8-l2codeToSBPSignalCode = fromList [(0, l2CMSidCode), (1, l2PSidCode)]+l2codeToSBPSignalCode :: H.HashMap Word8 Word8+l2codeToSBPSignalCode = H.fromList [(0, l2CMSidCode), (1, l2PSidCode)]  -- | Maximum number of packed observations to allow in a single SBP message. --@@ -324,7 +324,7 @@       code = l2 ^. gpsL2Observation_code       -- Checks GPS L2 code indicator.       -- See DF016, pg. 3-17 of the RTCM3 spec.-      obs2 = if member code l2codeToSBPSignalCode then+      obs2 = if H.member code l2codeToSBPSignalCode then                Just PackedObsContent                  { _packedObsContent_P    = toP_L2 l1 l1e l2                  , _packedObsContent_L    = toL_L2 l1 l1e l2 l2e@@ -332,7 +332,7 @@                  , _packedObsContent_lock = toLock_L2 l2                  , _packedObsContent_sid  = GnssSignal                    { _gnssSignal_sat      = fromIntegral $ sat - 1-                   , _gnssSignal_code     = l2codeToSBPSignalCode ! code+                   , _gnssSignal_code     = l2codeToSBPSignalCode H.! code                    , _gnssSignal_reserved = 0                    }                  }