fix changed made during sleep deprived state
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Tue, 17 Feb 2015 06:06:27 +0000 (11:36 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Tue, 17 Feb 2015 06:06:27 +0000 (11:36 +0530)
src/Bencode.hs
src/Tracker.hs

index 75ae077ad31f73c6ba703a65767c0ebebfbf3abb..6b46a929dabb5614d2d02e79d1248b9add785549 100644 (file)
@@ -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 (++ encode x) ""
+  where encodeList = foldr (\x -> (++ encode x)) ""
 encode (Bdict d) = "d" ++ encodeDict d ++ "e"
   where encodeDict m = concat [encode k ++ encode (m M.! k) | k <- M.keys m]
index 5df314c38d6d4b5fe19b333cc2de6e54f9ce80d9..52dccdd6d9bbcf9d31cd3dc64addbdee21db6db0 100644 (file)
@@ -20,9 +20,9 @@ type Url = String
 -- "%124Vx%9a%bc%de%f1%23Eg%89%ab%cd%ef%124Vx%9a"
 urlEncode :: BC.ByteString -> String
 urlEncode bs = concatMap (encode . BC.unpack) (U.splitN 2 bs)
-  where encode b@[c1 : c2] = let c =  chr (read ("0x" ++ b))
-                             in
-                              escape c c1 c2
+  where encode b@(c1 : c2 : []) = let c =  chr (read ("0x" ++ b))
+                                  in
+                                   escape c c1 c2
         encode _ = ""
         escape i c1 c2 | i `elem` nonSpecialChars = [i]
                        | otherwise = "%" ++ [c1] ++ [c2]