From 108e04b7bd24271570bb41d192068c18c9d93cce Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 4 Mar 2014 14:28:44 +0000
Subject: [PATCH] Fixes for GHC 7.6 compatibility

---
 src/binary/Data/Binary/Builder.hs | 2 +-
 src/binary/Data/Binary/Get.hs     | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

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__)