sfmt 0.1.0 → 0.1.1

raw patch · 2 files changed

+13/−9 lines, 2 filesdep ~primitive

Dependency ranges changed: primitive

Files

• System/Random/SFMT.hs +10/−6
• sfmt.cabal +3/−3

@@ -1,7 +1,7 @@-{-# LANGUAGE CPP #-}-{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE UnboxedTuples #-}+{-# LANGUAGE CPP #-}  module System.Random.SFMT     ( -- * Gen@@ -41,6 +41,10 @@ import Unsafe.Coerce import System.IO.Unsafe +#if !MIN_VERSION_primitive(0,6,0)+#define PrimBase PrimMonad+#endif+ newtype Gen s = Gen (ForeignPtr SFMT) instance Show (Gen s) where     show = unsafePerformIO . getIDString@@ -71,7 +75,7 @@     sfmt_init_by_array bytes (castPtr ptr) (fromIntegral $ len `quot` 4)     Gen `liftM` newForeignPtr finalizerFree bytes -withSystemRandom :: PrimMonad m => (Gen (PrimState m) -> m a) -> IO a +withSystemRandom :: PrimBase m => (Gen (PrimState m) -> m a) -> IO a withSystemRandom m = do     bs  <- getEntropy (constSFMT_N * 16)     gen <- initializeFromByteString bs@@ -83,10 +87,10 @@ type GenIO   = Gen (PrimState IO) type GenST s = Gen (PrimState (ST s)) -asGenIO :: (GenIO -> IO a) -> GenIO -> IO a +asGenIO :: (GenIO -> IO a) -> GenIO -> IO a asGenIO = id -asGenST :: (GenST s -> ST s a) -> GenST s -> ST s a +asGenST :: (GenST s -> ST s a) -> GenST s -> ST s a asGenST = id  genRand :: PrimMonad m => (Ptr SFMT -> IO a) -> Gen (PrimState m) -> m a@@ -253,7 +257,7 @@ save (Gen gen) = unsafePrimToPrim . withForeignPtr gen $ \ptr ->     Seed `liftM` S.packCStringLen (castPtr ptr, sizeOfSFMT) -restore :: PrimMonad m => Seed -> m (Gen (PrimState m)) +restore :: PrimMonad m => Seed -> m (Gen (PrimState m)) restore (Seed bs) = unsafePrimToPrim . S.unsafeUseAsCString bs $ \ptr -> do     bytes <- mallocBytes sizeOfSFMT     copyBytes bytes (castPtr ptr) sizeOfSFMT

@@ -1,5 +1,5 @@ name:                sfmt-version:             0.1.0+version:             0.1.1 synopsis:            SIMD-oriented Fast Mersenne Twister(SFMT) binding. description:         this library has mwc-random<http://hackage.haskell.org/package/mwc-random> like api. license:             BSD3@@ -20,8 +20,8 @@ library   exposed-modules:     System.Random.SFMT   other-modules:       System.Random.SFMT.Foreign-  build-depends:       base       >=4.6  && <4.8-                     , primitive  >=0.5  && <0.6+  build-depends:       base       >=4.6  && <4.9+                     , primitive  >=0.5  && <0.7                      , bytestring >=0.10 && <0.11                      , entropy    >=0.3  && <0.4   default-language:    Haskell2010