vector-fftw 0.1.3.3 → 0.1.3.5

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• Numeric/FFT/Vector/Base.hsc +2/−2
• vector-fftw.cabal +1/−1

@@ -37,7 +37,7 @@ import Foreign (Storable(..), Ptr, FunPtr,                 ForeignPtr, withForeignPtr, newForeignPtr) import Foreign.C (CInt(..), CUInt)-import Data.Bits ( (.&.) )+import Data.Bits ( (.|.) ) import Data.Complex(Complex(..)) import Foreign.Storable.Complex() import System.IO.Unsafe (unsafePerformIO)@@ -57,7 +57,7 @@  -- | Marshal the Transform flags for use by fftw. planInitFlags :: PlanType -> Preservation -> CFlags-planInitFlags pt pr = planTypeInt .&. preservationInt+planInitFlags pt pr = planTypeInt .|. preservationInt   where     planTypeInt = case pt of                     Estimate -> #const FFTW_ESTIMATE

@@ -1,6 +1,6 @@ Name:                vector-fftw -Version:             0.1.3.3+Version:             0.1.3.5 License:             BSD3 License-file:        LICENSE Author:              Judah Jacobson