fix search.hs