diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,16 @@
 Changes
 =======
 
+Version 0.3.2.6
+---------------
+
+Work around a regression in `type-eq`
+
+Version 0.3.2.5
+---------------
+
+Relax `pretty-show` version bound
+
 Version 0.3.2.4
 ---------------
 
diff --git a/haskell-names.cabal b/haskell-names.cabal
--- a/haskell-names.cabal
+++ b/haskell-names.cabal
@@ -1,5 +1,5 @@
 Name:                   haskell-names
-Version:                0.3.2.5
+Version:                0.3.2.6
 License:                BSD3
 Author:                 Roman Cheplyaka, Lennart Augustsson
 Maintainer:             Roman Cheplyaka <roma@ro-che.info>
@@ -271,7 +271,7 @@
     , data-lens-template
     , tagged
     , traverse-with-class
-    , type-eq
+    , type-eq == 0.4
     , Cabal >= 1.14 && < 1.20
   Hs-source-dirs:       src
   Ghc-options:          -Wall -fno-warn-name-shadowing
diff --git a/tests/run.hs b/tests/run.hs
--- a/tests/run.hs
+++ b/tests/run.hs
@@ -10,6 +10,7 @@
 
 import System.FilePath
 import System.FilePath.Find
+import System.IO
 import System.Exit
 import Data.Monoid
 import Data.List hiding (find)
@@ -76,7 +77,7 @@
   where
     golden = file <.> "golden"
     out = file <.> "out"
-    run = writeFile out $ ppShow iface
+    run = writeBinaryFile out $ ppShow iface
 
 exportTests :: MT TestTree
 exportTests = do
@@ -105,7 +106,7 @@
     golden = file <.> "golden"
     out = file <.> "out"
     run = do
-      writeFile out $ ppShow tbl
+      writeBinaryFile out $ ppShow tbl
 
 getGlobalTable :: FilePath -> MT Global.Table
 getGlobalTable file = do
@@ -169,7 +170,7 @@
     golden = file <.> "golden"
     out = file <.> "out"
     run = do
-      liftIO $ writeFile out $ printAnns annotatedMod
+      liftIO $ writeBinaryFile out $ printAnns annotatedMod
 
 getAnnotated file = do
   mod <- liftIO $ parseAndPrepare file