Small code review for  main.hs
Merge pull request #1 from HeinrichApfelmus/patch-1

Small code review for  main.hs - Thanks to Heinrich!