applied hlint suggestions
imported Control.Applicative to remove lambda function