From f47c8edb420fdc238a9c753ed1160619408666df Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Tue, 14 Jun 2016 19:21:03 +0200 Subject: [PATCH] Fix build for GHC < 7.10 --- src/HPath/IO/Errors.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/HPath/IO/Errors.hs b/src/HPath/IO/Errors.hs index 1049ba1..e0d8b5e 100644 --- a/src/HPath/IO/Errors.hs +++ b/src/HPath/IO/Errors.hs @@ -69,6 +69,10 @@ import Data.ByteString.UTF8 ( toString ) +import Data.Typeable + ( + Typeable + ) import Foreign.C.Error ( getErrno @@ -105,7 +109,7 @@ import qualified System.Posix.Files.ByteString as PF data HPathIOException = SameFile ByteString ByteString | DestinationInSource ByteString ByteString | RecursiveFailure [(RecursiveFailureHint, IOException)] - deriving (Eq, Show) + deriving (Eq, Show, Typeable) -- |A type for giving failure hints on recursive failure, which allows