swap a couple of unnecessary $ for a . in Test.hs