added War.hs