rattletrap-4.0.0: library/Rattletrap/Decode/Bitstream.hs

module Rattletrap.Decode.Bitstream
  ( decodeBitstreamBits
  ) where

import Rattletrap.Decode.Common
import Rattletrap.Type.Bitstream

import qualified Control.Monad as Monad

decodeBitstreamBits :: Int -> DecodeBits Bitstream
decodeBitstreamBits n = Bitstream <$> Monad.replicateM n getBool