Commit 9b7760a0 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Tweak an error message.

parent 28e453a1
...@@ -527,8 +527,8 @@ checkEntryTarbomb _ entry | nonFilesystemEntry = Nothing ...@@ -527,8 +527,8 @@ checkEntryTarbomb _ entry | nonFilesystemEntry = Nothing
checkEntryTarbomb expectedTopDir entry = checkEntryTarbomb expectedTopDir entry =
case FilePath.Native.splitDirectories (entryPath entry) of case FilePath.Native.splitDirectories (entryPath entry) of
(topDir:_) | topDir == expectedTopDir -> Nothing (topDir:_) | topDir == expectedTopDir -> Nothing
s -> Just $ "File in tar archive is not in the expected directory " s -> Just $ "File in tar archive is not in the expected directory. "
++ show expectedTopDir ++ "Expected: " ++ show expectedTopDir
++ " but got the following hierarchy: " ++ " but got the following hierarchy: "
++ show s ++ show s
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment