diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for byte-containers
 
-## 0.1.0.0 -- YYYY-mm-dd
+## 0.1.0.1 -- 2024-01-31
 
-* First version. Released on an unsuspecting world.
+* Fix changelog.
+
+## 0.1.0.0 -- 2024-01-31
+
+* First version.
diff --git a/byte-containers.cabal b/byte-containers.cabal
--- a/byte-containers.cabal
+++ b/byte-containers.cabal
@@ -1,6 +1,6 @@
 cabal-version:   2.2
 name:            byte-containers
-version:         0.1.0.0
+version:         0.1.0.1
 synopsis:        Sets and maps with 8-bit words for keys
 description:
   This library provides variant of @Data.Map@ and @Data.Set@ from
diff --git a/src/Data/Map/Word8.hs b/src/Data/Map/Word8.hs
--- a/src/Data/Map/Word8.hs
+++ b/src/Data/Map/Word8.hs
@@ -124,9 +124,9 @@
         ( \(!ix, !ixA, !ixB) a b -> case a of
             True -> case b of
               True -> do
-                a <- PM.indexSmallArrayM vsA ixA
-                b <- PM.indexSmallArrayM vsB ixB
-                let !c = g a b
+                a' <- PM.indexSmallArrayM vsA ixA
+                b' <- PM.indexSmallArrayM vsB ixB
+                let !c = g a' b'
                 PM.writeSmallArray dst ix c
                 pure (ix + 1, ixA + 1, ixB + 1)
               False -> do
@@ -175,8 +175,8 @@
       a' <- g a xval yval
       go (ix + 1) a'
 
-foldrBits256 :: (Word8 -> b -> b) -> b -> Word256 -> b
-foldrBits256 g b0 w = go 0
+_foldrBits256 :: (Word8 -> b -> b) -> b -> Word256 -> b
+_foldrBits256 g b0 w = go 0
  where
   go ix = case ix of
     256 -> b0
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -1,8 +1,6 @@
-{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE MultiWayIf #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE TypeApplications #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 import Data.Map.Word8 (Map)