Simple Haskell Autocomplete

search.hs

import Data.List
import Data.List.Utils
import Data.Function


main = do
  contents <- readFile "BingBodyJun09_Top100KWords.txt"

  -- break into lines
  let rows = lines contents

  -- read input from user
  userInput <- getLine

  -- search on input for a completed version of it
  let filtered = filter (startswith userInput) 
                        rows

  mapM print $ take 15 filtered