Commit d1fd45d1 authored by ian@well-typed.com's avatar ian@well-typed.com
Browse files

Add a kludge to the compare tool for unicode filenames

It thought that something impossible was happening when they
were involved.
parent 5943a5b2
module FilenameDescr where
import Data.Char
import Data.Either
import Data.List
......@@ -32,7 +33,11 @@ checkContent buildInfo (fd, tl)
Right fn' ->
if fn' == fn
then []
else ["checkContent: Can't happen: filename mismatch: " ++ show fn]
else if all isAscii fn
then ["checkContent: Can't happen: filename mismatch: "
++ show fn]
else [] -- Ugly kludge; don't worry too much if filepaths
-- containing non-ASCII chars have gone wrong
Left errs ->
errs
......
Markdown is supported
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