Use little endian encoding of ByteStrings in Anoma (#2793)

Anoma decodes integer atoms as bytes assuming a little endian layout.


https://github.com/anoma/anoma/blob/ea25f88cea52226d77c8392ae16bbfc5a7ffccee/lib/noun.ex#L182

This commit adds functions `byteStringToIntegerLE` and
`integerToByteStringLE` that makes it clear that little endian encoding
is being used.

src/Juvix/Compiler/Nockma/Encoding/ByteString.hs

@@ -1,7 +1,8 @@
 module Juvix.Compiler.Nockma.Encoding.ByteString where
 
-import Data.Bit
-import Juvix.Compiler.Nockma.Encoding.Base
+import Data.Bits
+import Data.ByteString qualified as BS
+import Data.ByteString.Builder qualified as BS
 import Juvix.Compiler.Nockma.Language
 import Juvix.Prelude.Base
 
@@ -12,33 +13,34 @@ byteStringToAtom :: (NockNatural a, Member (Error (ErrNockNatural a)) r) => Byte
 byteStringToAtom = fmap mkEmptyAtom . fromNatural . byteStringToNatural
 
 byteStringToNatural :: ByteString -> Natural
-byteStringToNatural = bitsToNatural . cloneFromByteString
+byteStringToNatural = fromInteger . byteStringToIntegerLE
 
 naturalToByteString :: Natural -> ByteString
-naturalToByteString = cloneToByteString . naturalToBits
+naturalToByteString = integerToByteStringLE . toInteger
 
-textToNatural :: Text -> Natural
-textToNatural = byteStringToNatural . encodeUtf8
+byteStringToIntegerLE :: ByteString -> Integer
+byteStringToIntegerLE = BS.foldr (\b acc -> acc `shiftL` 8 .|. fromIntegral b) 0
 
-bitsToNatural :: Vector Bit -> Natural
-bitsToNatural = fromInteger . vectorBitsToInteger
+integerToByteStringLE :: Integer -> ByteString
+integerToByteStringLE = BS.toStrict . BS.toLazyByteString . go
+  where
+    go :: Integer -> BS.Builder
+    go = \case
+      0 -> mempty
+      n -> BS.word8 (fromIntegral n) <> go (n `shiftR` 8)
 
-naturalToBits :: Natural -> Vector Bit
-naturalToBits = integerToVectorBits . toInteger
+textToNatural :: Text -> Natural
+textToNatural = byteStringToNatural . encodeUtf8
 
 atomToText :: (NockNatural a, Member (Error (ErrNockNatural a)) r) => Atom a -> Sem r Text
 atomToText = fmap decodeUtf8Lenient . atomToByteString
 
 -- | Construct an atom formed by concatenating the bits of two atoms, where each atom represents a sequence of bytes
 atomConcatenateBytes :: forall a r. (NockNatural a, Member (Error (ErrNockNatural a)) r) => Atom a -> Atom a -> Sem r (Atom a)
 atomConcatenateBytes l r = do
-  -- cloneToByteString ensures that the bytestring is zero-padded up to the byte boundary
-  lBs <- cloneToByteString <$> atomToBits l
-  rBs <- cloneToByteString <$> atomToBits r
+  lBs <- atomToByteString l
+  rBs <- atomToByteString r
   byteStringToAtom (lBs <> rBs)
-  where
-    atomToBits :: Atom a -> Sem r (Vector Bit)
-    atomToBits = fmap naturalToBits . nockNatural
 
 mkEmptyAtom :: a -> Atom a
 mkEmptyAtom x =