git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@19 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 3 insertions, 4 deletions

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 ()