Removing an errant Monad from Apply.hs