diff --git a/Crypto/Hash/Internal.hs b/Crypto/Hash/Internal.hs
index 5ec625f..d15a8f7 100644
--- a/Crypto/Hash/Internal.hs
+++ b/Crypto/Hash/Internal.hs
@@ -4,6 +4,6 @@
 -- Maintainer  : Vincent Hanquez <vincent@snarc.org>
 -- Stability   : experimental
 -- Portability : unknown
-module Crypto.Hash.Internal (unsafeDoIO) where
-
-import Crypto.Internal.Compat (unsafeDoIO)
+module Crypto.Hash.Internal
+    (
+    ) where
diff --git a/Crypto/Hash/Kekkak.hs b/Crypto/Hash/Kekkak.hs
index f3ef85a..d158e26 100644
--- a/Crypto/Hash/Kekkak.hs
+++ b/Crypto/Hash/Kekkak.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.Kekkak
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.Kekkak
 
 {-# NOINLINE init #-}
diff --git a/Crypto/Hash/MD2.hs b/Crypto/Hash/MD2.hs
index 931950e..af8e9bc 100644
--- a/Crypto/Hash/MD2.hs
+++ b/Crypto/Hash/MD2.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.MD2
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.MD2
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/MD4.hs b/Crypto/Hash/MD4.hs
index 3253f84..87d1b17 100644
--- a/Crypto/Hash/MD4.hs
+++ b/Crypto/Hash/MD4.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.MD4
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.MD4
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/MD5.hs b/Crypto/Hash/MD5.hs
index a20aa8e..a5a555b 100644
--- a/Crypto/Hash/MD5.hs
+++ b/Crypto/Hash/MD5.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.MD5
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.MD5
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/RIPEMD160.hs b/Crypto/Hash/RIPEMD160.hs
index 75dc7c4..425372a 100644
--- a/Crypto/Hash/RIPEMD160.hs
+++ b/Crypto/Hash/RIPEMD160.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.RIPEMD160
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.RIPEMD160
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/SHA1.hs b/Crypto/Hash/SHA1.hs
index feda1e6..f3c9aac 100644
--- a/Crypto/Hash/SHA1.hs
+++ b/Crypto/Hash/SHA1.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA1
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA1
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/SHA224.hs b/Crypto/Hash/SHA224.hs
index 9558691..a306925 100644
--- a/Crypto/Hash/SHA224.hs
+++ b/Crypto/Hash/SHA224.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA224
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA224
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/SHA256.hs b/Crypto/Hash/SHA256.hs
index 8121c93..8f05fde 100644
--- a/Crypto/Hash/SHA256.hs
+++ b/Crypto/Hash/SHA256.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA256
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA256
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/SHA3.hs b/Crypto/Hash/SHA3.hs
index 9d64ecb..c466ee2 100644
--- a/Crypto/Hash/SHA3.hs
+++ b/Crypto/Hash/SHA3.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA3
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA3
 
 {-# NOINLINE init #-}
diff --git a/Crypto/Hash/SHA384.hs b/Crypto/Hash/SHA384.hs
index a3f8d12..7790394 100644
--- a/Crypto/Hash/SHA384.hs
+++ b/Crypto/Hash/SHA384.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA384
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA384
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/SHA512.hs b/Crypto/Hash/SHA512.hs
index 8e92fa5..0457776 100644
--- a/Crypto/Hash/SHA512.hs
+++ b/Crypto/Hash/SHA512.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.SHA512
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.SHA512
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/Skein256.hs b/Crypto/Hash/Skein256.hs
index de1d466..269827b 100644
--- a/Crypto/Hash/Skein256.hs
+++ b/Crypto/Hash/Skein256.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.Skein256
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.Skein256
 
 {-# NOINLINE init #-}
diff --git a/Crypto/Hash/Skein512.hs b/Crypto/Hash/Skein512.hs
index 083b59b..ce70849 100644
--- a/Crypto/Hash/Skein512.hs
+++ b/Crypto/Hash/Skein512.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.Skein512
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.Skein512
 
 {-# NOINLINE init #-}
diff --git a/Crypto/Hash/Tiger.hs b/Crypto/Hash/Tiger.hs
index 3f77d6f..12ae0c0 100644
--- a/Crypto/Hash/Tiger.hs
+++ b/Crypto/Hash/Tiger.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.Tiger
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.Tiger
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/Crypto/Hash/Whirlpool.hs b/Crypto/Hash/Whirlpool.hs
index ab08c9e..4d7773c 100644
--- a/Crypto/Hash/Whirlpool.hs
+++ b/Crypto/Hash/Whirlpool.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.Whirlpool
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.Whirlpool
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}
diff --git a/gen/template/hash-len.hs b/gen/template/hash-len.hs
index a26ed54..1e93848 100644
--- a/gen/template/hash-len.hs
+++ b/gen/template/hash-len.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.%%MODULENAME%%
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.%%MODULENAME%%
 
 {-# NOINLINE init #-}
diff --git a/gen/template/hash.hs b/gen/template/hash.hs
index ad97ee2..7329084 100644
--- a/gen/template/hash.hs
+++ b/gen/template/hash.hs
@@ -29,7 +29,7 @@ module Crypto.Hash.%%MODULENAME%%
 import Prelude hiding (init)
 import qualified Data.ByteString.Lazy as L
 import Data.ByteString (ByteString)
-import Crypto.Hash.Internal (unsafeDoIO)
+import Crypto.Internal.Compat (unsafeDoIO)
 import Crypto.Hash.Internal.%%MODULENAME%%
 
 {-# RULES "hash" forall b. finalize (update init b) = hash b #-}