Update Query.hs