summaryrefslogtreecommitdiff
path: root/src/binary/Data
diff options
context:
space:
mode:
Diffstat (limited to 'src/binary/Data')
-rw-r--r--src/binary/Data/Binary/Builder.hs1
-rw-r--r--src/binary/Data/Binary/Get.hs3
2 files changed, 4 insertions, 0 deletions
diff --git a/src/binary/Data/Binary/Builder.hs b/src/binary/Data/Binary/Builder.hs
index 183483945..6aee97964 100644
--- a/src/binary/Data/Binary/Builder.hs
+++ b/src/binary/Data/Binary/Builder.hs
@@ -55,6 +55,7 @@ module Data.Binary.Builder (
) where
import Foreign
+import System.IO.Unsafe(unsafePerformIO)
import Data.Monoid
--import Data.Word
import qualified Data.ByteString as S
diff --git a/src/binary/Data/Binary/Get.hs b/src/binary/Data/Binary/Get.hs
index c2c43b691..0a2f12117 100644
--- a/src/binary/Data/Binary/Get.hs
+++ b/src/binary/Data/Binary/Get.hs
@@ -89,6 +89,9 @@ import Control.Applicative (Applicative(..))
import Foreign
-- used by splitAtST
+#if MIN_VERSION_base(4,6,0)
+import Control.Monad.ST.Unsafe(unsafeInterleaveST)
+#endif
import Control.Monad.ST
import Data.STRef