Bot.hs

module Bot where
    --import qualified Socket
    import qualified IA
    import qualified Commands
    type UserName = String
    type UserPass = String

    main :: IO()
    main = do
        usN <- getLine
        usP <- getLine
        let goodLogin = loginUser usN usP
        -- En vez de mostrar por pantalla loopBot, desplazarlo como main principal
        if goodLogin == False then (putStrLn badLogin) else (putStrLn loopBot)
        return()

    loopBot :: String
    loopBot = "En espera de funcionar"
    --loopBot :: esperando leer del socket,
    --          una vez lea del socket que haga la función
    --          gestionar funciones e ir añadiendo...


    badLogin :: String
    badLogin = "Fail credentials"

    loginUser :: UserName -> UserPass -> Bool
    loginUser usN usP
                | usN == "YourUser" && usP == "YourPass" = True
                | otherwise = False