Update Dispatch.hs