fix style in Main.hs
remove redundant do