Haskell stdin grep

grep.hs

import System.Environment
import Data.List

main = do
  args <- getArgs
  case args of
    [word] -> interact $ unlines . filter (isInfixOf word) . lines
    _      -> putStrLn "No word to match against specified!"