From e01c6ae44353d1c02af9f061e9072d94343ddbfb Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Feb 2010 16:40:25 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@19
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'HsBot.hs')

diff --git a/HsBot.hs b/HsBot.hs
index 65e3670..eaf5f83 100644
--- a/HsBot.hs
+++ b/HsBot.hs
@@ -9,7 +9,7 @@ import System
 -- Static configurations
 
 version :: String
-version = "0.0"
+version = "v0.0"
 
 database :: String
 database = "hsbot.db"
@@ -192,8 +192,7 @@ loop conf =
           	("!p", "Prints configuration", (\x -> do { putStrLn $ show x; loop' x } ) ),
           	("!s", "Saves configuration", (\x -> do { putStrLn "Saving current xiguration"; save x; loop' x } ) ),
           	("!q", "Quits", (\x -> do { putStrLn "Good bye"; save x; exitWith ExitSuccess } ) )]
-       -- Extract the Conf from the IO Monad and run the loop
-    in do conf' <- conf
+    in do conf' <- conf -- Extract Conf from the IO Monad and run loop' with pure input
           loop' conf'
 
 -- Will be connected to IRC input in future instead of getLine
@@ -202,7 +201,7 @@ readInput = getLine
 
 main :: IO ()	
 main = do
-	putStrLn $ "Welcome to " ++ version ++ " (Enter !h for help)"
+	putStrLn $ "Welcome to HsBot " ++ version ++ " (Enter !h for help)"
 	loop load
 
 save :: Conf -> IO ()
-- 
cgit v1.2.3