diff --git a/accelerate-cufft.cabal b/accelerate-cufft.cabal
--- a/accelerate-cufft.cabal
+++ b/accelerate-cufft.cabal
@@ -1,5 +1,5 @@
 Name:             accelerate-cufft
-Version:          0.0.0.1
+Version:          0.0.1
 License:          BSD3
 License-File:     LICENSE
 Author:           Henning Thielemann <haskell@henning-thielemann.de>
@@ -20,7 +20,7 @@
   default:     False
 
 Source-Repository this
-  Tag:         0.0.0.1
+  Tag:         0.0.1
   Type:        darcs
   Location:    http://hub.darcs.net/thielema/accelerate-cufft/
 
@@ -30,11 +30,11 @@
 
 Library
   Build-Depends:
-    cufft >=0.1.1 && <0.2,
-    cuda >= 0.5 && <0.7,
+    cufft >=0.1.1 && <0.8,
+    cuda >= 0.5 && <0.8,
     accelerate-fourier >=0.0 && <0.1,
     accelerate-utility >=0.1 && <0.2,
-    accelerate-cuda >=0.15 && <0.16,
+    accelerate-cuda >=0.16 && <0.17,
     accelerate >=0.15 && <0.16,
     base >=4.5 && <4.10
 
diff --git a/example/Merged.hs b/example/Merged.hs
--- a/example/Merged.hs
+++ b/example/Merged.hs
@@ -31,7 +31,7 @@
 transform :: Acc (Vector Float) -> Acc (Vector Float)
 transform =
    A.foreignAcc
-      (AF.CUDAForeignAcc "transformForeign" transformForeign)
+      (AF.CUDAForeignAcc "transformForeign" $ const transformForeign)
       (error "no fft fallback implemented")
 
 main :: IO ()
diff --git a/example/Separate.hs b/example/Separate.hs
--- a/example/Separate.hs
+++ b/example/Separate.hs
@@ -29,7 +29,7 @@
 transform :: CUFFT.Handle -> Acc (Vector Float) -> Acc (Vector Float)
 transform h =
    A.foreignAcc
-      (AF.CUDAForeignAcc "transformForeign" $ transformForeign h)
+      (AF.CUDAForeignAcc "transformForeign" $ const $ transformForeign h)
       (error "no fft fallback implemented")
 
 main :: IO ()
diff --git a/src/Data/Array/Accelerate/CUFFT/Private.hs b/src/Data/Array/Accelerate/CUFFT/Private.hs
--- a/src/Data/Array/Accelerate/CUFFT/Private.hs
+++ b/src/Data/Array/Accelerate/CUFFT/Private.hs
@@ -103,7 +103,7 @@
    -}
    wrap mode (A.constant width) $
    A.foreignAcc
-      (AF.CUDAForeignAcc "transformForeign" $ transformForeign hndl)
+      (AF.CUDAForeignAcc "transformForeign" $ const $ transformForeign hndl)
       (unwrap mode (A.constant width) fallback)