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/Find.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/Find.hs')
| -rw-r--r-- | Command/Find.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index 3ed15c153..45156af05 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -12,6 +12,7 @@ import Control.Monad.State (liftIO) import Command import Content +import Messages command :: [Command] command = [Command "find" (paramOptional $ paramRepeating paramPath) seek @@ -24,5 +25,5 @@ seek = [withFilesInGit start] start :: CommandStartString start file = isAnnexed file $ \(key, _) -> do exists <- inAnnex key - when exists $ liftIO $ putStrLn file + when exists $ liftIO $ putStrLn $ showFile file return Nothing |