diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-10 14:21:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-10 14:21:44 -0400 |
| commit | fe55b4644e67bba60b35e07abcdd312b65c9d6f3 (patch) | |
| tree | 4631f428f86f72d614f9b5388772b6ec58a3fb8d /Backend/SHA1.hs | |
| parent | e7a3475704f5366e89aebe78cefbeb58ff5ab181 (diff) | |
Fix display of unicode filenames.
Internally, the filenames are stored as un-decoded unicode.
I tried decoding them, but then haskell tries to access the wrong files.
Hmm.
So, I've unhappily chosen option "B", which is to decode filenames before
they are displayed.
Diffstat (limited to 'Backend/SHA1.hs')
| -rw-r--r-- | Backend/SHA1.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/SHA1.hs b/Backend/SHA1.hs index 3d868dbd1..f1092492e 100644 --- a/Backend/SHA1.hs +++ b/Backend/SHA1.hs @@ -58,5 +58,5 @@ checkKeySHA1 key = do then return True else do dest <- moveBad key - warning $ "Bad file content; moved to "++dest + warning $ "Bad file content; moved to " ++ showFile dest return False |