Fix build for GHC < 7.10
This commit is contained in:
parent
ef66a24f87
commit
f47c8edb42
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user