From 4628ebad53536132ed5ead2027276af35bc5aa59 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Tue, 17 Feb 2015 15:07:56 +0530
Subject: [PATCH] cute hlint suggestion for transformng a function

---
 src/Bencode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Bencode.hs b/src/Bencode.hs
index 6b46a92..1fe6aea 100644
--- a/src/Bencode.hs
+++ b/src/Bencode.hs
@@ -132,6 +132,6 @@ encode (Bstr bs) = let s = BC.unpack bs
                    in show (length s) ++ ":" ++ s
 encode (Bint i) = "i" ++ show i ++ "e"
 encode (Blist xs) = "l" ++ encodeList xs ++ "e"
-  where encodeList = foldr (\x -> (++ encode x)) ""
+  where encodeList = foldr ((++) . encode) ""
 encode (Bdict d) = "d" ++ encodeDict d ++ "e"
   where encodeDict m = concat [encode k ++ encode (m M.! k) | k <- M.keys m]
-- 
2.45.2