Merge pull request #1 from kazu-yamamoto/close-dev-random

ignoring exceptons from hClose to read the next entropy
kazu-yamamoto · Jun 5, 2023 · 0102384 · 0102384
2 parents d163f69 + b0a59f3
commit 0102384
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Crypto/Random/Entropy/Unix.hs b/Crypto/Random/Entropy/Unix.hs
@@ -61,7 +61,7 @@ withDev filepath f = openDev filepath >>= \h ->
         Just fd -> f fd `E.finally` closeDev fd
 
 closeDev :: H -> IO ()
-closeDev h = hClose h
+closeDev h = hClose h `E.catch` \(_ :: IOException) -> return ()
 
 gatherDevEntropy :: H -> Ptr Word8 -> Int -> IO Int
 gatherDevEntropy h ptr sz =