Update Search.hs