Skip to content
Browse files

Simplify

  • Loading branch information...
1 parent c8840d4 commit 40f3a9bd232ae0d457c258e1bba2caf297914104 @bos committed Oct 8, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Data/Hashable.hs
View
2 Data/Hashable.hs
@@ -127,7 +127,7 @@ defaultSalt = 2166136261
#else
-defaultSalt = unsafePerformIO . alloca $ \(p :: Ptr Int) -> do
+defaultSalt = unsafePerformIO . alloca $ \p -> do
getRandomBytes_ "defaultSalt" p (sizeOf (undefined :: Int))
peek p
{-# NOINLINE defaultSalt #-}

0 comments on commit 40f3a9b

Please sign in to comment.
Something went wrong with that request. Please try again.