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 /Command/Unused.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 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index d9f4e3978..2b390b956 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -68,7 +68,7 @@ checkUnused = do dropmsg = ["(To remove unwanted data: git-annex dropunused NUMBER)"] table l = [" NUMBER KEY"] ++ map cols l - cols (n,k) = " " ++ pad 6 (show n) ++ " " ++ show k + cols (n,k) = " " ++ pad 6 (show n) ++ " " ++ (showFile . show) k pad n s = s ++ replicate (n - length s) ' ' number :: Int -> [a] -> [(Int, a)] |