summaryrefslogtreecommitdiff
path: root/src/Utility/FileSystemEncoding.hs
diff options
context:
space:
mode:
authorJoey Hess2015-01-15 14:03:50 -0400
committerJoey Hess2015-01-15 14:03:50 -0400
commit47fdb99fbba21f724a2cb6e909c3801e3cc7ab22 (patch)
tree6b97363e81def50d20a1e5aefb6a2a2519bfdcfa /src/Utility/FileSystemEncoding.hs
parent16031a7c26464485e7c11afdec7d0b80dfe2f5bf (diff)
parent35cd06e4e6cad5bc6c9bbbd33642450dbd2de10c (diff)
Merge branch 'joeyconfig'
Conflicts: privdata.joey/privdata.gpg
Diffstat (limited to 'src/Utility/FileSystemEncoding.hs')
-rw-r--r--src/Utility/FileSystemEncoding.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Utility/FileSystemEncoding.hs b/src/Utility/FileSystemEncoding.hs
index 4e8f2ffe..fa4b39aa 100644
--- a/src/Utility/FileSystemEncoding.hs
+++ b/src/Utility/FileSystemEncoding.hs
@@ -1,6 +1,6 @@
{- GHC File system encoding handling.
-
- - Copyright 2012-2014 Joey Hess <id@joeyh.name>
+ - Copyright 2012-2014 Joey Hess <joey@kitenet.net>
-
- License: BSD-2-clause
-}
@@ -111,7 +111,7 @@ truncateFilePath :: Int -> FilePath -> FilePath
#ifndef mingw32_HOST_OS
truncateFilePath n = go . reverse
where
- go f =
+ go f =
let bytes = decodeW8 f
in if length bytes <= n
then reverse f