Fix build for GHC < 7.10

This commit is contained in:
Julian Ospald 2016-06-14 19:21:03 +02:00
parent ef66a24f87
commit f47c8edb42
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28

View File

@ -69,6 +69,10 @@ import Data.ByteString.UTF8
( (
toString toString
) )
import Data.Typeable
(
Typeable
)
import Foreign.C.Error import Foreign.C.Error
( (
getErrno getErrno
@ -105,7 +109,7 @@ import qualified System.Posix.Files.ByteString as PF
data HPathIOException = SameFile ByteString ByteString data HPathIOException = SameFile ByteString ByteString
| DestinationInSource ByteString ByteString | DestinationInSource ByteString ByteString
| RecursiveFailure [(RecursiveFailureHint, IOException)] | RecursiveFailure [(RecursiveFailureHint, IOException)]
deriving (Eq, Show) deriving (Eq, Show, Typeable)
-- |A type for giving failure hints on recursive failure, which allows -- |A type for giving failure hints on recursive failure, which allows