diff --git a/src/binary/Data/Binary/Builder.hs b/src/binary/Data/Binary/Builder.hs
index 6aee97964..66e2fa497 100644
--- a/src/binary/Data/Binary/Builder.hs
+++ b/src/binary/Data/Binary/Builder.hs
@@ -54,7 +54,7 @@ module Data.Binary.Builder (
 
   ) where
 
-import Foreign
+import Foreign(Word8,Ptr,Storable,ForeignPtr,withForeignPtr,poke,plusPtr,sizeOf)
 import System.IO.Unsafe(unsafePerformIO)
 import Data.Monoid
 --import Data.Word
diff --git a/src/binary/Data/Binary/Get.hs b/src/binary/Data/Binary/Get.hs
index 0a2f12117..719b7d803 100644
--- a/src/binary/Data/Binary/Get.hs
+++ b/src/binary/Data/Binary/Get.hs
@@ -91,8 +91,10 @@ import Foreign
 -- used by splitAtST
 #if MIN_VERSION_base(4,6,0)
 import Control.Monad.ST.Unsafe(unsafeInterleaveST)
+#else
+import Control.Monad.ST(unsafeInterleaveST)
 #endif
-import Control.Monad.ST
+import Control.Monad.ST(runST)
 import Data.STRef
 
 #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__)