From 15d527fb96c0559a13b6fe6f26e4ad49333b3bd5 Mon Sep 17 00:00:00 2001
From: konsumlamm <konsumlamm@gmail.com>
Date: Fri, 6 Mar 2026 18:55:37 +0100
Subject: [PATCH] Don't reexport `Data.Word`

---
 benchmarks/Benchmark.hs | 1 +
 benchmarks/Get.hs       | 1 +
 benchmarks/Put.hs       | 3 +--
 changelog.md            | 7 ++++++-
 src/Data/Binary.hs      | 4 ----
 tests/File.hs           | 5 +++--
 tests/QC.hs             | 1 +
 7 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/benchmarks/Benchmark.hs b/benchmarks/Benchmark.hs
index dfaa27ff..4a5cba7f 100644
--- a/benchmarks/Benchmark.hs
+++ b/benchmarks/Benchmark.hs
@@ -5,6 +5,7 @@ import qualified Data.ByteString.Lazy as L
 import Data.Binary
 import Data.Binary.Put
 import Data.Binary.Get
+import Data.Word
 
 import Control.Exception
 import System.CPUTime
diff --git a/benchmarks/Get.hs b/benchmarks/Get.hs
index 2ee5d210..2e0be9f9 100644
--- a/benchmarks/Get.hs
+++ b/benchmarks/Get.hs
@@ -7,6 +7,7 @@ import qualified Data.ByteString.Lazy as L
 import Data.Bits
 import Data.Char (ord)
 import Data.List (foldl')
+import Data.Word
 import Test.Tasty.Bench
 
 import Control.Applicative
diff --git a/benchmarks/Put.hs b/benchmarks/Put.hs
index 4ba33669..4d83ee5d 100644
--- a/benchmarks/Put.hs
+++ b/benchmarks/Put.hs
@@ -5,7 +5,7 @@ import Control.Exception (evaluate)
 import qualified Data.ByteString as S
 import qualified Data.ByteString.Char8 as C
 import qualified Data.ByteString.Lazy as L
-import Data.Monoid
+import Data.Word
 import Test.Tasty.Bench
 
 import GHC.Generics
@@ -13,7 +13,6 @@ import GHC.Generics
 import Data.Binary
 import Data.Binary.Put
 import Data.ByteString.Builder as BB
-import Prelude -- Silence Monoid import warning.
 
 main :: IO ()
 main = do
diff --git a/changelog.md b/changelog.md
index 13d4191e..0c2dcc20 100644
--- a/changelog.md
+++ b/changelog.md
@@ -1,6 +1,11 @@
 binary
 ======
 
+binary-0.9.0.0
+--------------
+
+- Don't reexport `Data.Word` from `Data.Binary`
+
 binary-0.8.9.2
 --------------
 
@@ -170,7 +175,7 @@ binary-0.7.1.0
 --------------
 
 - Add `lookAheadE :: Get (Either a b) -> Get (Either a b)`.
-- Add MonadPlus instance for Get. 
+- Add MonadPlus instance for Get.
 
 
 binary-0.7.0.1
diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs
index 07970a3e..7139805a 100644
--- a/src/Data/Binary.hs
+++ b/src/Data/Binary.hs
@@ -67,12 +67,8 @@ module Data.Binary (
     , decodeFile                -- :: Binary a => FilePath -> IO a
     , decodeFileOrFail
 
-    , module Data.Word -- useful
-
     ) where
 
-import Data.Word
-
 import Data.Binary.Class
 import Data.Binary.Put
 import Data.Binary.Get
diff --git a/tests/File.hs b/tests/File.hs
index 1ec631b1..02a26dfc 100644
--- a/tests/File.hs
+++ b/tests/File.hs
@@ -13,6 +13,7 @@ import           Distribution.Simple.Utils (withTempDirectory)
 import           Distribution.Verbosity    (silent)
 
 import           Data.Binary
+import           Data.Word
 
 data Foo = Bar !Word32 !Word32 !Word32 deriving (Eq, Show)
 
@@ -38,6 +39,6 @@ readWriteTest = TestCase $ do
     exampleData @=? content
 
 main :: IO ()
-main = do 
+main = do
   _ <- runTestTT readWriteTest
-  return ()
\ No newline at end of file
+  return ()
diff --git a/tests/QC.hs b/tests/QC.hs
index 18a4c21f..fc1fdc72 100644
--- a/tests/QC.hs
+++ b/tests/QC.hs
@@ -22,6 +22,7 @@ import           Data.ByteString.Short                (ShortByteString)
 import           Data.Int
 import           Data.Ratio
 import           Data.Typeable
+import           Data.Word
 import           System.IO.Unsafe
 
 import           Data.Orphans ()