module Rattletrap.Decode.Word32le
  ( decodeWord32le
  , decodeWord32leBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Type.Word32le

decodeWord32le :: Decode Word32le
decodeWord32le :: Decode Word32le
decodeWord32le = Word32 -> Word32le
Word32le (Word32 -> Word32le) -> Get Word32 -> Decode Word32le
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Word32
getWord32le

decodeWord32leBits :: DecodeBits Word32le
decodeWord32leBits :: DecodeBits Word32le
decodeWord32leBits = Decode Word32le -> Int -> DecodeBits Word32le
forall a. Decode a -> Int -> DecodeBits a
toBits Decode Word32le
decodeWord32le Int
4