Rewrote some LiftM's to <$> and <*> for clarity