Update app/App.hs

Use list comprehension with guards