clustertools-0.1.1: src/Filter.hs

import System.SimpleArgs (getArgs)
import Data.Set hiding (filter,map,null)

main :: IO ()
main = interact . runFilter . fromList . words =<< readFile =<< getArgs
     
runFilter :: Set String -> String -> String
runFilter s = unlines . filter (not.null) . 
              map (unwords . filter (flip member s) . words) . lines