rtcm 0.2.10 → 0.2.11

raw patch · 3 files changed

+8/−21 lines, 3 files

Files

• rtcm.cabal +1/−1
• src/Data/RTCM3/Observations.hs +5/−16
• test/Test/Data/RTCM3/Observations.hs +2/−4

@@ -1,5 +1,5 @@ name: rtcm-version: 0.2.10+version: 0.2.11 cabal-version: >=1.22 build-type: Simple license: BSD3

@@ -24,6 +24,7 @@ import           Data.Binary.Bits import qualified Data.Binary.Bits.Get as B import qualified Data.Binary.Bits.Put as B+import           Data.Bits import           Data.Int import           Data.RTCM3.Extras import           Data.RTCM3.TH@@ -340,14 +341,8 @@     -- ^ GLONASS Code-Phase bias indicator.   , _glonassBias_mask    :: Word8     -- ^ GLONASS FDMA signals mask.-  , _glonassBias_l1ca    :: Int16-    -- ^ GLONASS L1 C/A code-phase bias.-  , _glonassBias_l1p     :: Int16-    -- ^ GLONASS L1 P code-phase bias.-  , _glonassBias_l2ca    :: Int16-    -- ^ GLONASS L2 C/A code-phase bias.-  , _glonassBias_l2p     :: Int16-    -- ^ GLONASS L2 P code-phase bias.+  , _glonassBias_biases  :: [Int16]+    -- ^ GLONASS code-phase biases.   } deriving ( Show, Read, Eq )  $(makeLenses ''GlonassBias)@@ -359,10 +354,7 @@     _glonassBias_station <- B.getWord16be 12     _glonassBias_bias    <- B.getBool     _glonassBias_mask    <- B.getWord8 4-    _glonassBias_l1ca    <- getInt16be 16-    _glonassBias_l1p     <- getInt16be 16-    _glonassBias_l2ca    <- getInt16be 16-    _glonassBias_l2p     <- getInt16be 16+    _glonassBias_biases  <- replicateM (popCount _glonassBias_mask) $ getInt16be 16     pure GlonassBias {..}    putBits _n GlonassBias {..} = do@@ -370,10 +362,7 @@     B.putWord16be 12 _glonassBias_station     B.putBool        _glonassBias_bias     B.putWord8 4     _glonassBias_mask-    putInt16be 16 _glonassBias_l1ca-    putInt16be 16 _glonassBias_l1p-    putInt16be 16 _glonassBias_l2ca-    putInt16be 16 _glonassBias_l2p+    forM_ _glonassBias_biases $ putInt16be 16  msg1001 :: Word16 msg1001 = 1001

@@ -17,6 +17,7 @@ import BasicPrelude import Control.Lens import Data.Binary+import Data.Bits import Data.RTCM3 import Test.Data.RTCM3.Test import Test.Tasty@@ -105,10 +106,7 @@     _glonassBias_station <- arbitraryWord 12     _glonassBias_bias    <- arbitrary     _glonassBias_mask    <- arbitraryWord 4-    _glonassBias_l1ca    <- arbitraryInt 16-    _glonassBias_l1p     <- arbitraryInt 16-    _glonassBias_l2ca    <- arbitraryInt 16-    _glonassBias_l2p     <- arbitraryInt 16+    _glonassBias_biases  <- replicateM (popCount _glonassBias_mask) $ arbitraryInt 16     pure GlonassBias {..}  instance Arbitrary Observation1001 where