Update Bare.hs