haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

withDev: Close the FD on exception

Browse Source
This commit is contained in:
Ömer Sinan Ağacan 2017-11-30 10:30:29 +03:00
parent 5e354f9bfc
commit d7aeb5f545
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/Random/Entropy/Unix.hs
View File

@ -58,7 +58,7 @@ withDev :: String -> (H -> IO a) -> IO a
withDev filepath f = openDev filepath >>= \h -> withDev filepath f = openDev filepath >>= \h ->
case h of case h of
Nothing -> error ("device " ++ filepath ++ " cannot be grabbed") Nothing -> error ("device " ++ filepath ++ " cannot be grabbed")
Just fd -> f fd >>= \r -> (closeDev fd >> return r) Just fd -> f fd `E.finally` closeDev fd
closeDev :: H -> IO () closeDev :: H -> IO ()
closeDev h = hClose h closeDev h = hClose h