Update Pattern.hs