HPath.IO.Errors: minor documentation fix

This commit is contained in:
Julian Ospald 2016-05-10 02:02:05 +02:00
parent 456af3b1ab
commit 05fcad14f1
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28

View File

@ -266,7 +266,7 @@ canOpenDirectory fp =
return True
-- |Throws a `Can'tOpenDirectory` FmIOException if the directory at the given
-- |Throws a `Can'tOpenDirectory` HPathIOException if the directory at the given
-- path cannot be opened.
throwCantOpenDirectory :: Path Abs -> IO ()
throwCantOpenDirectory fp =
@ -332,8 +332,8 @@ bracketeer before after afterEx thing =
reactOnError :: IO a
-> [(IOErrorType, IO a)] -- ^ reaction on IO errors
-> [(HPathIOException, IO a)] -- ^ reaction on FmIOException
-> [(IOErrorType, IO a)] -- ^ reaction on IO errors
-> [(HPathIOException, IO a)] -- ^ reaction on HPathIOException
-> IO a
reactOnError a ios fmios =
a `catches` [iohandler, fmiohandler]