diff options
Diffstat (limited to 'src/binary')
| -rw-r--r-- | src/binary/Data/Binary/Builder.hs | 1 | ||||
| -rw-r--r-- | src/binary/Data/Binary/Get.hs | 3 |
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 |
