diff options
author | 2012-02-04 12:24:00 -0400 | |
---|---|---|
committer | 2012-02-04 12:44:51 -0400 | |
commit | f1c7dc12127fcbad411c28df57e9ce194bd66509 (patch) | |
tree | 0d0eb4c787e8324c4992537c9b194c9d7d6154ad /Command | |
parent | 44b115e0b11b3cb64301ed6dc478c597062ac0b6 (diff) |
fix touch and statfs to work on any files in any locale
Use withCAString rather than withCString.
XXX Actually, this only works in non-unicode locales when presented with
unicode characters. Help?
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Add.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index 944525ea5..f437d160d 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -84,9 +84,9 @@ cleanup file key hascontent = do -- file it points to -- XXX Currently broken on non-utf8 locales when -- dealing with utf-8 filenames. - --liftIO $ do - --mtime <- modificationTime <$> getFileStatus file - --touch file (TimeSpec mtime) False + liftIO $ do + mtime <- modificationTime <$> getFileStatus file + touch file (TimeSpec mtime) False force <- Annex.getState Annex.force if force |