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 /Remote | |
| parent | 57428c356ea81ea13193ac5dfc32d9a824ed4d65 (diff) | |
more pointless monadic golfing
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3real.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/S3real.hs b/Remote/S3real.hs index 135966903..baf570593 100644 --- a/Remote/S3real.hs +++ b/Remote/S3real.hs @@ -232,7 +232,7 @@ bucketKey r bucket k = S3Object bucket (bucketFile r k) "" [] L.empty - with no whitespace. Other characters are xml entity - encoded. -} iaMunge :: String -> String -iaMunge = concat . (map munge) +iaMunge = (>>= munge) where munge c | isAsciiUpper c || isAsciiLower c || isNumber c = [c] |