Use liftM instead of (<$>)