Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

`Foreign.ForeignPtr.*` doesn't exist in base 4.3. Use `Foreign.Foreig…

…nPtr` there.
  • Loading branch information...
commit 9dd9819a2eed41810a21ff796051edb1d870dd0a 1 parent 9336d0f
@ekmett authored
View
4 CHANGELOG.markdown
@@ -1,3 +1,7 @@
+3.8.7 [maintenance release]
+-----
+* Fixed dependencies to build with `base < 4.4`.
+
3.8.6 [maintenance release]
-----
* Fixed an issue with `DefaultSignatures` being used outside of the appropriate `#ifdef` that caused compilation issues on GHC 7.0.2.
View
2  lens.cabal
@@ -1,6 +1,6 @@
name: lens
category: Data, Lenses
-version: 3.8.6
+version: 3.8.7
license: BSD3
cabal-version: >= 1.8
license-file: LICENSE
View
7 src/Control/Lens/Internal/ByteString.hs
@@ -3,6 +3,9 @@
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE PatternGuards #-}
{-# LANGUAGE FlexibleContexts #-}
+#ifndef MIN_VERSION_base
+#define MIN_VERSION_base(x,y,z) 1
+#endif
-----------------------------------------------------------------------------
-- |
-- Module : Data.ByteString.Strict.Lens
@@ -36,8 +39,12 @@ import Data.Int (Int64)
import Data.Word (Word8)
import Foreign.Ptr
import Foreign.Storable
+#ifdef MIN_VERSION_base(4,4,0)
import Foreign.ForeignPtr.Safe
import Foreign.ForeignPtr.Unsafe
+#else
+import Foreign.ForeignPtr
+#endif
import GHC.Base (unsafeChr)
import GHC.ForeignPtr (mallocPlainForeignPtrBytes)
import GHC.IO (unsafeDupablePerformIO)
Please sign in to comment.
Something went wrong with that request. Please try again.