formmatting tweaks to splitmix code plus enabling wall
authorCarter Tazio Schonwald <carter.schonwald@gmail.com>
Mon, 17 Apr 2017 19:16:33 +0000 (15:16 -0400)
committerCarter Tazio Schonwald <carter.schonwald@gmail.com>
Mon, 17 Apr 2017 19:16:33 +0000 (15:16 -0400)
random.cabal
src/System/Random/SplitMix/Internal.hs

index f186aad..8e53ba2 100644 (file)
@@ -67,7 +67,7 @@ library
   -- Directories containing source files.
   hs-source-dirs:      src
 
-  ghc-options: -O2
+  ghc-options: -O2 -Wall
 
   -- Base language which the package is written in.
   default-language:    Haskell2010
index eb290e6..5674721 100644 (file)
@@ -15,7 +15,7 @@ module System.Random.SplitMix.Internal(
 
 import qualified  Data.Bits  as DB
 import Data.Bits (xor,(.|.))
-import Data.Word(Word64(..))
+import Data.Word(Word64)
 import Data.Functor.Identity
 
 {-# SPECIALIZE popCount :: Word64 -> Word64 #-}
@@ -48,7 +48,6 @@ mix64variant13 = \ w -> xorShiftR 31 $ secondRoundMix64Variant13 $ firstRoundMix
 firstRoundMix64Variant13 :: Word64 -> Word64
 firstRoundMix64Variant13 = \ w -> xorShiftR 30 w * 0xbf58476d1ce4e5b9
 
-
 secondRoundMix64Variant13 :: Word64 -> Word64
 secondRoundMix64Variant13 = \ w -> xorShiftR 27 w * 0x94d049bb133111eb
 
@@ -76,7 +75,6 @@ data SplitMix64 = SplitMix64 { sm64seed :: {-# UNPACK #-} !Word64
                               ,sm64Gamma :: {-# UNPACK #-} !Word64 }
 
 
-
 advanceSplitMix :: SplitMix64 -> SplitMix64
 advanceSplitMix (SplitMix64 sd gamma) = SplitMix64 (sd + gamma) gamma