Make `!` inline

diff --git a/src/Bencode.hs b/src/Bencode.hs
index 8018a3828260443271c5c08c4317c5d8e0d22210..246fffcf44e20e1703b57b30c87798bfb0974669 100644 (file)
--- a/src/Bencode.hs
+++ b/src/Bencode.hs
@@ -128,4 +128,4 @@ encode (Bint i) = "i" ++ show i ++ "e"
 encode (Blist xs) = "l" ++ encodeList xs ++ "e"
   where encodeList = foldr ((++) . encode) ""
 encode (Bdict d) = "d" ++ encodeDict d ++ "e"
-  where encodeDict m = concat [encode k ++ encode ((!) m k) | k <- keys m]
+  where encodeDict m = concat [encode k ++ encode (m ! k) | k <- keys m]

diff --git a/src/Metainfo.hs b/src/Metainfo.hs
index ccfd98333bb169d460bd028f6dd3b4c109481ce5..c77b127d02e0368239f29bcc7d67c9cdbeea9c23 100644 (file)
--- a/src/Metainfo.hs
+++ b/src/Metainfo.hs
@@ -24,11 +24,11 @@ data Metainfo = Metainfo { info :: !Info
                          } deriving (Eq, Show)
 
 mkInfo :: BVal -> Maybe Info
-mkInfo (Bdict m) = let (Bint pieceLength') = m M.! Bstr (pack "piece length")
-                       (Bstr pieces') = m M.! Bstr (pack "pieces")
+mkInfo (Bdict m) = let (Bint pieceLength') = m ! Bstr (pack "piece length")
+                       (Bstr pieces') = m ! Bstr (pack "pieces")
                        private' = Nothing
-                       (Bstr name') = m M.! Bstr (pack "name")
-                       (Bint length') = m M.! Bstr (pack "length")
+                       (Bstr name') = m ! Bstr (pack "name")
+                       (Bint length') = m ! Bstr (pack "length")
                        md5sum' = Nothing
                    in Just Info { pieceLength = pieceLength'
                                 , pieces = pieces'
@@ -44,8 +44,8 @@ maybeBstrToString (Just s) = let (Bstr bs) = s
                              in Just (unpack bs)
 
 mkMetaInfo :: BVal -> Maybe Metainfo
-mkMetaInfo (Bdict m) = let (Just info') = mkInfo (m M.! Bstr (pack "info"))
-                           (Bstr announce') = m M.! Bstr (pack "announce")
+mkMetaInfo (Bdict m) = let (Just info') = mkInfo (m ! Bstr (pack "info"))
+                           (Bstr announce') = m ! Bstr (pack "announce")
                            -- announceList = lookup (Bstr (pack "announce list"))
                            announceList' = Nothing
                            -- creationDate = lookup (Bstr (pack "creation date")) m

diff --git a/src/Peer.hs b/src/Peer.hs
index e27de57a3bd0d20d802311c71a5622a8552f1e4e..b07b79d6561d551b55c8a2bfeb15403d1982c50a 100644 (file)
--- a/src/Peer.hs
+++ b/src/Peer.hs
@@ -36,7 +36,7 @@ getPeerResponse :: ByteString -> PeerResp
 getPeerResponse body = case decode body of
                         Right (Bdict peerM) ->
                           let (Just (Bint i)) = lookup (Bstr (pack "lookup")) peerM
-                              (Bstr peersBS) = peerM M.! Bstr (pack "peers")
+                              (Bstr peersBS) = peerM ! Bstr (pack "peers")
                               pl = map (\peer -> let (ip', port') = splitAt 4 peer
                                                  in Peer (toIPNum ip') (toPortNum port'))
                                    (splitN 6 peersBS)

diff --git a/src/Tracker.hs b/src/Tracker.hs
index eab09795338ddeedad9a7e356e58e1104a69e7b9..09d55293718e67be1d4bf4f3d616a31c5b627d85 100644 (file)
--- a/src/Tracker.hs
+++ b/src/Tracker.hs
@@ -30,7 +30,7 @@ urlEncodeHash bs = concatMap (encode' . unpack) (splitN 2 bs)
         nonSpecialChars = ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "-_.~"
 
 infoHash :: Map BVal BVal -> ByteString
-infoHash m = let info = m M.! Bstr (pack "info")
+infoHash m = let info = m ! Bstr (pack "info")
              in (hash . pack . encode) info
 
 prepareRequest :: InfoDict -> String -> Integer -> String