Using list comprehension.

haskell-tls · Aug 6, 2018 · 03f5fa8 · 03f5fa8
1 parent c2fa096
commit 03f5fa8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/core/Network/TLS/Extension.hs b/core/Network/TLS/Extension.hs
@@ -415,7 +415,7 @@ data KeyShare =
 instance Extension KeyShare where
     extensionID _ = extensionID_KeyShare
     extensionEncode (KeyShareClientHello kses) = runPut $ do
-        let !len = sum $ map (\(KeyShareEntry _ key) -> B.length key + 4) kses
+        let !len = sum [B.length key + 4 | KeyShareEntry _ key <- kses]
         putWord16 $ fromIntegral len
         mapM_ putKeyShareEntry kses
     extensionEncode (KeyShareServerHello kse) = runPut $ putKeyShareEntry kse