diff options
| -rw-r--r-- | HsBot.hs | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -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 () |