diff --git a/Data/Time/Parse.hsc b/Data/Time/Parse.hsc
--- a/Data/Time/Parse.hsc
+++ b/Data/Time/Parse.hsc
@@ -19,7 +19,7 @@
 import Foreign
 import Foreign.C.Types
 import Foreign.C.String
-import Foreign.ForeignPtr
+import qualified Foreign.ForeignPtr.Unsafe as PU
 import Foreign.Marshal.Alloc
 import GHC.Ptr
 import qualified System.IO.Unsafe as U
@@ -75,7 +75,7 @@
       -- Avoid memcpy-ing the format string every time.
       let (pf, ofs, len) = BI.toForeignPtr f
       ztf <- mallocBytes (len+1)
-      copyBytes ztf (unsafeForeignPtrToPtr pf) len
+      copyBytes ztf (PU.unsafeForeignPtrToPtr pf) len
       pokeByteOff ztf len (0::Word8)
       fztf <- newForeignPtr_ ztf
       addForeignPtrFinalizer finalizerFree fztf
diff --git a/strptime.cabal b/strptime.cabal
--- a/strptime.cabal
+++ b/strptime.cabal
@@ -1,6 +1,6 @@
 Name: strptime
 Category: System, Data, Parsing
-Version: 1.0.6
+Version: 1.0.7
 Cabal-version: >= 1.2
 Build-type: Simple
 Copyright: Eugene Kirpichov