diff options
author | 2011-02-11 15:37:37 -0400 | |
---|---|---|
committer | 2011-02-11 15:37:37 -0400 | |
commit | 5a50a7cf137997a9d940b9a89a0968452a1ac411 (patch) | |
tree | 64ac76dc4a4327a2b3eafbee28c45670af71340f /Command/Unused.hs | |
parent | 285fb2bb08c7da534c111ebfeee5911e850570cc (diff) |
update unicode FilePath handling
Based on http://hackage.haskell.org/trac/ghc/ticket/3307 ,
whether FilePath contains decoded unicode varies by OS.
So, add a configure check for it.
Also, renamed showFile to filePathToString
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 2b390b956..67a227237 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) ++ " " ++ (showFile . show) k + cols (n,k) = " " ++ pad 6 (show n) ++ " " ++ (filePathToString . show) k pad n s = s ++ replicate (n - length s) ' ' number :: Int -> [a] -> [(Int, a)] |