fourmolu

Author: kazu-yamamoto

debug/src/SimpleClient.hs

@@ -381,8 +381,7 @@ runOn (sStorage, certStore) flags port hostname
                 LC.pack
                     ( "GET "
                         ++ findURI flags
-                        ++ ( if Http11 `elem` flags then " HTTP/1.1\r\nHost: " ++ hostname else " HTTP/1.0"
-                           )
+                        ++ (if Http11 `elem` flags then " HTTP/1.1\r\nHost: " ++ hostname else " HTTP/1.0")
                         ++ userAgent
                         ++ "\r\n\r\n"
                     )

tls/Network/TLS/Crypto.hs

@@ -115,7 +115,9 @@ findFiniteFieldGroup params = lookup (pg params) table
     pg (DH.Params p g _) = (p, g)
 
     table =
-        [ (pg prms, grp) | grp <- availableFFGroups, let prms = fromJust $ dhParamsForGroup grp
+        [ (pg prms, grp)
+        | grp <- availableFFGroups
+        , let prms = fromJust $ dhParamsForGroup grp
         ]
 
 findEllipticCurveGroup :: PubKeyEC -> Maybe Group

tls/Network/TLS/Handshake/Server/ClientHello.hs

@@ -28,8 +28,7 @@ processClientHello sparams ctx clientHello@(ClientHello legacyVersion cran compr
     eof <- ctxEOF ctx
     let renegotiation = established == Established && not eof
     when
-        ( renegotiation && not (supportedClientInitiatedRenegotiation $ ctxSupported ctx)
-        )
+        (renegotiation && not (supportedClientInitiatedRenegotiation $ ctxSupported ctx))
         $ throwCore
         $ Error_Protocol_Warning "renegotiation is not allowed" NoRenegotiation
     -- check if policy allow this new handshake to happens

tls/test/Arbitrary.hs

@@ -305,11 +305,13 @@ arbitraryPairParamsAt connectVersion = do
     -- versions for which we have compatible ciphers.  Criteria about cipher
     -- ensure we can test version downgrade.
     let allowedVersions =
-            [ v | v <- knownVersions, or
-                                        [ x `elem` serverCiphers
-                                            && cipherAllowedForVersion v x
-                                        | x <- clientCiphers
-                                        ]
+            [ v
+            | v <- knownVersions
+            , or
+                [ x `elem` serverCiphers
+                    && cipherAllowedForVersion v x
+                | x <- clientCiphers
+                ]
             ]
         allowedVersionsFiltered = filter (<= connectVersion) allowedVersions
     -- Server or client is allowed to have versions > connectVersion, but not