diff --git a/src/HSFM/FileSystem/Errors.hs b/src/HSFM/FileSystem/Errors.hs index c2c5112..9d1e744 100644 --- a/src/HSFM/FileSystem/Errors.hs +++ b/src/HSFM/FileSystem/Errors.hs @@ -96,8 +96,8 @@ instance Show FmIOException where show InvalidFileName = "Invalid file name!" show (Can'tOpenDirectory fp) = "Can't open directory: " ++ P.fpToString fp - show (CopyFailed str) = "Copying failed: " ++ show str - show (MoveFailed str) = "Moving failed: " ++ show str + show (CopyFailed str) = "Copying failed: " ++ str + show (MoveFailed str) = "Moving failed: " ++ str