From c878008a7adec62a5a74c34b9112cae2c1098cc5 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 15 Nov 2017 02:26:41 -0500
Subject: Cosmetic edit.

---
 Presence/Server.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Presence/Server.hs b/Presence/Server.hs
index e715a145..f8b1dfa1 100644
--- a/Presence/Server.hs
+++ b/Presence/Server.hs
@@ -136,7 +136,7 @@ data ServerInstruction conkey u
     -- ^ kill the server.  This command is automatically issued when
     -- the server is released.
     | Listen PortNumber (ConnectionParameters conkey u)
-    -- ^ listen for incomming connections
+    -- ^ listen for incoming connections
     | Connect SockAddr  (ConnectionParameters conkey u)
     -- ^ connect to addresses
     | ConnectWithEndlessRetry SockAddr
@@ -290,14 +290,13 @@ server allocate = do
                  `fmap` atomically (readTVar $ listenmap server)
     when (not listening) $ do
 
-    let family = AF_INET6
-    let address =
-          case family of
+    let family  = AF_INET6
+        address = case family of
             AF_INET  -> SockAddrInet port iNADDR_ANY
             AF_INET6 -> SockAddrInet6 port 0 iN6ADDR_ANY 0
 
     sserv <- flip streamServer address ServerConfig
-        { serverWarn = hPutStrLn stderr
+        { serverWarn    = hPutStrLn stderr
         , serverSession = \sock _ h -> do
             (conkey,u) <- makeConnKey params sock
             _ <- newConnection server params conkey u h In
-- 
cgit v1.2.3