aboutsummaryrefslogtreecommitdiff
path: root/Content.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-12 15:30:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-12 15:30:17 -0400
commit72d268401604fbac93ca4701ab53d32880483686 (patch)
treea1ab880d30ece5ed1720d6db13ab5d9c5c1ca560 /Content.hs
parent9229d182d32570f6829ced655aa673ceddfe7693 (diff)
Rethink filename encoding handling for display. Since filename encoding may or may not match locale settings, any attempt to decode filenames will fail for some files. So instead, do all output in binary mode.0.23
Diffstat (limited to 'Content.hs')
-rw-r--r--Content.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Content.hs b/Content.hs
index bcd4ac0e1..895a8812c 100644
--- a/Content.hs
+++ b/Content.hs
@@ -50,7 +50,7 @@ calcGitLink file key = do
cwd <- liftIO $ getCurrentDirectory
let absfile = case absNormPath cwd file of
Just f -> f
- Nothing -> error $ "unable to normalize " ++ filePathToString file
+ Nothing -> error $ "unable to normalize " ++ file
return $ relPathDirToDir (parentDir absfile)
(Git.workTree g) </> ".git" </> annexLocation key