hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: simplify error handling

Browse Source 
'bracket' already handles this.
This commit is contained in:
hasufell 2016-04-08 03:00:37 +02:00
parent 7f086911e1
commit 5bce5dd6ff
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/HSFM/FileSystem/FileType.hs
View File

@ -36,8 +36,7 @@ import Control.Exception
) )
import Control.Exception.Base import Control.Exception.Base
( (
onException IOException
, IOException
) )
import Control.Monad.State.Lazy import Control.Monad.State.Lazy
( (
@ -622,8 +621,7 @@ getDirsFiles' filterf fp =
-- make sure we close the directory stream in case of errors -- make sure we close the directory stream in case of errors
-- TODO: more explicit error handling? -- TODO: more explicit error handling?
-- both the parsing and readin the stream can fail! -- both the parsing and readin the stream can fail!
dir <- onException (PFD.readDirStream dirstream) dir <- PFD.readDirStream dirstream
(PFD.closeDirStream dirstream)
case dir of case dir of
"" -> return dirs "" -> return dirs
_ -> do _ -> do