Unroll loops to decode unsigned integers

[mchav]

We use loop structures to decode bytes:

littleEndianWord64 :: BS.ByteString -> Word64
littleEndianWord64 bytes =
    foldr
        (.|.)
        0
        ( zipWith
            (\b i -> fromIntegral b `shiftL` i)
            (BS.unpack $ BS.take 8 bytes)
            [0, 8 ..]
        )

These loops can be unrolled to something like https://hackage.haskell.org/package/binary-0.8.9.3/docs/src/Data.Binary.Get.html#word64be

[daikonradish]

DataHaskell has been accepted to Google Summer of Code 2026! This issue has been tagged with gsoc2026. We ask that this issue be reserved for those who are interested in applying to GSOC 2026.

If you are not applying to GSOC 2026, but you are still interested in this task, please approach us to discuss first. We're available on GitHub and on Discord.

Thank you!