gistfile1.hs

after :: String -> [String] -> [String]
after _ []               = []
after target (x:xs)
    | isInfixOf target x = [x] ++ xs
    | otherwise          = after target xs

main = do  
        contents <- readFile "the-lake-isle-of-innisfree.txt"
        putStr . unlines . after "glimmer" . lines $ contents

Hi Pat -- Here's my crack at it.

module Main where
import Data.List

after :: String  -- ^ match word
      -> String  -- ^ input string
      -> String
after x = unlines . dropWhile (not.isInfixOf x) . lines

main = readFile "the-lake-isle-of-innisfree.txt" >>= putStrLn . after "glimmer"