module Rattletrap.Decode.Word64le
  ( decodeWord64le
  , decodeWord64leBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Type.Word64le

decodeWord64le :: Decode Word64le
decodeWord64le :: Decode Word64le
decodeWord64le = Word64 -> Word64le
Word64le (Word64 -> Word64le) -> Get Word64 -> Decode Word64le
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Word64
getWord64le

decodeWord64leBits :: DecodeBits Word64le
decodeWord64leBits :: DecodeBits Word64le
decodeWord64leBits = Decode Word64le -> Int -> DecodeBits Word64le
forall a. Decode a -> Int -> DecodeBits a
toBits Decode Word64le
decodeWord64le Int
8