1 files 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