Filter.hs updated