diff --git a/Foreign/CUDA/Cublas/TH.hs b/Foreign/CUDA/Cublas/TH.hs
--- a/Foreign/CUDA/Cublas/TH.hs
+++ b/Foreign/CUDA/Cublas/TH.hs
@@ -151,9 +151,9 @@
   inT' (TD ct hst c2hs (hs2c,purity)) = TI
     (pointerify ct)
     (convertT [t| [ $(hst) ] |] exp)
-    (Just (destroyT [| F.free |]))
+    (Just (destroyT [| FC.free . FC.DevicePtr |]))
     where
-    exp = case purity of Pure -> [| F.newArray . map $(hs2c) |] ; Monadic -> undefined
+    exp = case purity of Pure -> [| fmap FC.useDevicePtr . FC.newListArray . map $(hs2c) |] ; Monadic -> undefined
 
 outT :: TypeC -> TypeInfo
 outT (PtrC t) = outT' (typeDat t) where
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -130,32 +130,6 @@
 
 getCppOptions :: BuildInfo -> LocalBuildInfo -> [String]
 getCppOptions bi lbi
-    = hcDefines (compiler lbi)
-   ++ ["-I" ++ dir | dir <- includeDirs bi]
+   =  ["-I" ++ dir | dir <- includeDirs bi]
    ++ [opt | opt@('-':c:_) <- ccOptions bi, c `elem` "DIU"]
 
-hcDefines :: Compiler -> [String]
-hcDefines comp =
-  case compilerFlavor comp of
-    GHC  -> ["-D__GLASGOW_HASKELL__=" ++ versionInt version]
-    JHC  -> ["-D__JHC__=" ++ versionInt version]
-    NHC  -> ["-D__NHC__=" ++ versionInt version]
-    Hugs -> ["-D__HUGS__"]
-    _    -> []
-  where version = compilerVersion comp
-
--- TODO: move this into the compiler abstraction
--- FIXME: this forces GHC's crazy 4.8.2 -> 408 convention on all the other
--- compilers. Check if that's really what they want.
-versionInt :: Version -> String
-versionInt (Version { versionBranch = [] }) = "1"
-versionInt (Version { versionBranch = [n] }) = show n
-versionInt (Version { versionBranch = n1:n2:_ })
-  = -- 6.8.x -> 608
-    -- 6.10.x -> 610
-    let s1 = show n1
-        s2 = show n2
-        middle = case s2 of
-                 _ : _ : _ -> ""
-                 _         -> "0"
-    in s1 ++ middle ++ s2
diff --git a/cublas.cabal b/cublas.cabal
--- a/cublas.cabal
+++ b/cublas.cabal
@@ -1,5 +1,5 @@
 name:                   cublas
-version:                0.2.0.1
+version:                0.2.0.2
 synopsis:               FFI bindings to the CUDA CUBLAS and CUSPARSE libraries
 description:            
   This package provides FFI bindings to the NVIDIA CUDA CUBLAS and CUSPARSE
@@ -10,6 +10,7 @@
   If you have trouble installing this package, it may help to view this
   webpage: <http://github.com/bmsherman/cublas>
 license:                BSD3
+homepage:               https://github.com/bmsherman/cublas
 license-file:           LICENSE
 author:                 Trevor L. McDonell, Ben Sherman
 maintainer:             Ben Sherman <benmsherman@gmail.com>
@@ -57,5 +58,5 @@
 
 source-repository this
   Type:     git
-  Location: git://github.com/bmsherman/cublas/releases/tag/0.2.0.1.git
-  Tag:      0.2.0.1
+  Location: git://github.com/bmsherman/cublas/releases/tag/0.2.0.2.git
+  Tag:      0.2.0.2