Update Behaviour.hs