diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-09 18:23:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-09 18:23:58 -0400 |
| commit | c2b13a88bf2e8bdeb126e4f13a5aeb0fbe09a0c5 (patch) | |
| tree | fc03a7fb1beefbbd2e4a6dffea4d27f8a3d123c3 /GitRepo.hs | |
| parent | 9de1192c574dc304f3e9dbfd01296f74c7ea5969 (diff) | |
use concat
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index 07f243b66..533038fc8 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -438,7 +438,7 @@ encodeGitFile s = foldl (++) "\"" (map echar s) ++ "\"" e_num c = showoctal $ ord c -- unicode character is decomposed to -- Word8s and each is shown in octal - e_utf c = foldl (++) "" $ map showoctal $ + e_utf c = concat $ map showoctal $ (encode [c] :: [Word8]) |