Update Main.hs

Implement Key Press Event