hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

HPath.IO.Errors: remove obsolete HPathIOException constructors

Browse Source
This commit is contained in:
Julian Ospald 2016-05-10 00:12:43 +02:00
parent 8a28a5dd0f
commit 794c3a2fc4
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/HPath/IO/Errors.hs
View File

@ -66,20 +66,13 @@ import qualified System.Posix.Files.ByteString as PF
data HPathIOException = FileDoesNotExist ByteString data HPathIOException = FileDoesNotExist ByteString
| DirDoesNotExist ByteString | DirDoesNotExist ByteString
| PathNotAbsolute ByteString
| FileNotExecutable ByteString
| SameFile ByteString ByteString | SameFile ByteString ByteString
| NotAFile ByteString
| NotADir ByteString
| DestinationInSource ByteString ByteString | DestinationInSource ByteString ByteString
| FileDoesExist ByteString | FileDoesExist ByteString
| DirDoesExist ByteString | DirDoesExist ByteString
| IsSymlink ByteString
| InvalidOperation String | InvalidOperation String
| InvalidFileName
| Can'tOpenDirectory ByteString | Can'tOpenDirectory ByteString
| CopyFailed String | CopyFailed String
| MoveFailed String
deriving (Typeable, Eq, Data) deriving (Typeable, Eq, Data)
@ -87,26 +80,18 @@ instance Show HPathIOException where
show (FileDoesNotExist fp) = "File does not exist:" ++ fpToString fp show (FileDoesNotExist fp) = "File does not exist:" ++ fpToString fp
show (DirDoesNotExist fp) = "Directory does not exist: " show (DirDoesNotExist fp) = "Directory does not exist: "
++ fpToString fp ++ fpToString fp
show (PathNotAbsolute fp) = "Path not absolute: " ++ fpToString fp
show (FileNotExecutable fp) = "File not executable: "
++ fpToString fp
show (SameFile fp1 fp2) = fpToString fp1 show (SameFile fp1 fp2) = fpToString fp1
++ " and " ++ fpToString fp2 ++ " and " ++ fpToString fp2
++ " are the same file!" ++ " are the same file!"
show (NotAFile fp) = "Not a file: " ++ fpToString fp
show (NotADir fp) = "Not a directory: " ++ fpToString fp
show (DestinationInSource fp1 fp2) = fpToString fp1 show (DestinationInSource fp1 fp2) = fpToString fp1
++ " is contained in " ++ " is contained in "
++ fpToString fp2 ++ fpToString fp2
show (FileDoesExist fp) = "File does exist: " ++ fpToString fp show (FileDoesExist fp) = "File does exist: " ++ fpToString fp
show (DirDoesExist fp) = "Directory does exist: " ++ fpToString fp show (DirDoesExist fp) = "Directory does exist: " ++ fpToString fp
show (IsSymlink fp) = "Is a symlink: " ++ fpToString fp
show (InvalidOperation str) = "Invalid operation: " ++ str show (InvalidOperation str) = "Invalid operation: " ++ str
show InvalidFileName = "Invalid file name!"
show (Can'tOpenDirectory fp) = "Can't open directory: " show (Can'tOpenDirectory fp) = "Can't open directory: "
++ fpToString fp ++ fpToString fp
show (CopyFailed str) = "Copying failed: " ++ str show (CopyFailed str) = "Copying failed: " ++ str
show (MoveFailed str) = "Moving failed: " ++ str