diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-16 14:49:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-16 14:49:28 -0400 |
| commit | 760cde28b67c14e0ad68e8649c0abe0544c44947 (patch) | |
| tree | 6d26b4783410f317f18200f66c9031a8d63afba7 /GitRepo.hs | |
| parent | 57428c356ea81ea13193ac5dfc32d9a824ed4d65 (diff) | |
more pointless monadic golfing
Diffstat (limited to 'GitRepo.hs')
| -rw-r--r-- | GitRepo.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/GitRepo.hs b/GitRepo.hs index 3c5a1e129..87cceece4 100644 --- a/GitRepo.hs +++ b/GitRepo.hs @@ -577,8 +577,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 = concat $ map showoctal $ - (encode [c] :: [Word8]) + e_utf c = showoctal =<< (encode [c] :: [Word8]) {- for quickcheck -} prop_idempotent_deencode :: String -> Bool |