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/WORM.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/WORM.hs')
-rw-r--r-- | Backend/WORM.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/WORM.hs b/Backend/WORM.hs index 20a81d841..7f40a2acb 100644 --- a/Backend/WORM.hs +++ b/Backend/WORM.hs @@ -67,5 +67,5 @@ checkKeySize key = do then return True else do dest <- moveBad key - warning $ "Bad file size; moved to "++dest + warning $ "Bad file size; moved to " ++ showFile dest return False |