cublas 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+7/−32 lines, 3 filessetup-changed

Files

• Foreign/CUDA/Cublas/TH.hs +2/−2
• Setup.hs +1/−27
• cublas.cabal +4/−3

@@ -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

@@ -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

@@ -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