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