fixeado para que levante con ghci, igual no anda porque no esta implementado eventos