From c6117b96f353360c8b4e99768c3c46b1f9898e35 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Mon, 27 Jan 2014 03:50:20 +0000
Subject: [PATCH] misc realignement

---
 core/Network/TLS/Parameters.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/Network/TLS/Parameters.hs b/core/Network/TLS/Parameters.hs
index 900a0e5..1035091 100644
--- a/core/Network/TLS/Parameters.hs
+++ b/core/Network/TLS/Parameters.hs
@@ -233,8 +233,8 @@ defaultServerHooks = ServerHooks
     { onCipherChoosing       = \_ -> head
     , onClientCertificate    = \_ -> return $ CertificateUsageReject $ CertificateRejectOther "no client certificates expected"
     , onUnverifiedClientCert = return False
-    , onSuggestNextProtocols  = return Nothing
-    , onNewHandshake          = \_ -> return True
+    , onSuggestNextProtocols = return Nothing
+    , onNewHandshake         = \_ -> return True
     }
 
 instance Show ServerHooks where