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
checkEntryTarbomb expectedTopDir entry =
case FilePath.Native.splitDirectories (entryPath entry) of
(topDir:_) | topDir == expectedTopDir -> Nothing
s -> Just $ "File in tar archive is not in the expected directory "
++ show expectedTopDir
s -> Just $ "File in tar archive is not in the expected directory. "
++ "Expected: " ++ show expectedTopDir
++ " but got the following hierarchy: "
++ 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