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 /Content.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 'Content.hs')
| -rw-r--r-- | Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Content.hs b/Content.hs index e16ad883c..fae980bae 100644 --- a/Content.hs +++ b/Content.hs @@ -49,7 +49,7 @@ calcGitLink file key = do cwd <- liftIO $ getCurrentDirectory let absfile = case absNormPath cwd file of Just f -> f - Nothing -> error $ "unable to normalize " ++ file + Nothing -> error $ "unable to normalize " ++ showFile file return $ relPathDirToDir (parentDir absfile) (Git.workTree g) ++ annexLocation key |