module Rattletrap.Decode.Word8le
  ( decodeWord8le
  , decodeWord8leBits
  )
where

import Rattletrap.Decode.Common
import Rattletrap.Type.Word8le

decodeWord8le :: Decode Word8le
decodeWord8le :: Decode Word8le
decodeWord8le = Word8 -> Word8le
Word8le (Word8 -> Word8le) -> Get Word8 -> Decode Word8le
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Word8
getWord8

decodeWord8leBits :: DecodeBits Word8le
decodeWord8leBits :: DecodeBits Word8le
decodeWord8leBits = Decode Word8le -> Int -> DecodeBits Word8le
forall a. Decode a -> Int -> DecodeBits a
toBits Decode Word8le
decodeWord8le Int
1