setup.hs and liftM instead of bind