1 files changed, 1 insertions, 5 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index 40e8e59..2de1507 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -1,7 +1,6 @@
 module Hsbot.Core
     ( connectServer
     , disconnectServer
-    , emptyMsg
     ) where
 
 import Control.Concurrent
@@ -30,7 +29,7 @@ connectServer server = do
     chan <- newChan :: IO (Chan BotMsg)
     threadId <- forkIO $ botReader handle chan
     putStrLn "done."
-    return (Bot server starttime handle [] M.empty chan threadId M.empty)
+    return $ Bot server starttime handle [] M.empty chan threadId M.empty
 
 -- | Disconnect from the server
 disconnectServer :: Bot -> IO ()    -- IO Bot ?
@@ -53,6 +52,3 @@ botReader handle chan = forever $ do
         _ -> do
             return ()
 
-emptyMsg :: IrcMsg
-emptyMsg = IrcMsg Nothing "EMPTY" []
-