Merge pull request hedgehogqa#197 from erikd/topic/seed-warning

Seed: Fix compiler warning
moodmosaic · May 20, 2018 · 7e61d73 · 7e61d73
2 parents 257ce2d + 615880f
commit 7e61d73
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/hedgehog/src/Hedgehog/Internal/Seed.hs b/hedgehog/src/Hedgehog/Internal/Seed.hs
@@ -25,6 +25,9 @@
 -- 2. Nikos Baxevanis
 --    https://github.com/moodmosaic/SplitMix/blob/master/SplitMix.hs
 --
+
+#include "MachDeps.h"
+
 module Hedgehog.Internal.Seed (
     Seed(..)
   , random
@@ -48,7 +51,11 @@ import           Control.Monad.IO.Class (MonadIO(..))
 
 import           Data.Bifunctor (first)
 import           Data.Bits ((.|.), xor, shiftR, popCount)
-import           Data.Int (Int32, Int64)
+#if (SIZEOF_HSINT == 8)
+import           Data.Int (Int64)
+#else
+import           Data.Int (Int32)
+#endif
 import           Data.Time.Clock.POSIX (getPOSIXTime)
 import           Data.IORef (IORef)
 import qualified Data.IORef as IORef
@@ -200,8 +207,6 @@ mixGamma x =
 ------------------------------------------------------------------------
 -- RandomGen instances
 
-#include "MachDeps.h"
-
 #if (SIZEOF_HSINT == 8)
 instance RandomGen Seed where
   next =