1 files changed, 13 insertions, 12 deletions

diff --git a/simplechat.hs b/simplechat.hs
index 54545b9b..bf592db3 100644
--- a/simplechat.hs
+++ b/simplechat.hs
@@ -5,7 +5,6 @@ import Data.HList.TypeEqGeneric1()
 import Data.HList.TypeCastGeneric1()
 import ByteStringOperators
 
-import Server
 import Data.ByteString.Lazy.Char8 as L 
     ( ByteString
     , hPutStrLn
@@ -17,6 +16,8 @@ import Control.Concurrent (forkIO)
 import Control.Concurrent.Chan
 import Data.HList
 
+import Server
+
 
 startCon socket st  = do
     let chan = hOccursFst st
@@ -42,17 +43,17 @@ startCon socket st  = do
     return (name .*. ConnectionFinalizer quit .*. st)
 
 doCon st bs cont = do
-        let hdl = hOccursFst st :: Handle 
-            nr = hOccursFst st :: ConnId
-            chan = hOccursFst st
-            broadcast msg = writeChan chan (nr,Just msg)
-            name = hHead st
-        Prelude.putStrLn $ "read: " ++ show bs
-        case bs of
-         "quit\n" -> hPutStrLn hdl "Bye!"
-         _      -> do
-            broadcast (name <++> ": " <++> L.init bs)
-            cont ()
+    let hdl = hOccursFst st :: Handle 
+        nr = hOccursFst st :: ConnId
+        chan = hOccursFst st
+        broadcast msg = writeChan chan (nr,Just msg)
+        name = hHead st
+    Prelude.putStrLn $ "read: " ++ show bs
+    case bs of
+     "quit\n" -> hPutStrLn hdl "Bye!"
+     _      -> do
+        broadcast (name <++> ": " <++> L.init bs)
+        cont ()
 
 
 main = do