@@ -127,11 +127,11 @@ getEntropy n = do
127 if b then hGetEntropy UseRdRand n
127 if b then hGetEntropy UseRdRand n
130− h <- cryptAcquireCtx
130+ h <- cryptAcquireCtx
131− bs <- cryptGenRandom h n
131+ bs <- cryptGenRandom h n
132− let !bs' = bs
132+ let !bs' = bs
133− cryptReleaseCtx h
133+ cryptReleaseCtx h
134− return bs'
134+ return bs'
136-- |Open a handle from which random data can be read
136-- |Open a handle from which random data can be read
137openHandle :: IO CryptHandle
137openHandle :: IO CryptHandle