Longest words

gistfile1.txt

import System.Environment (getArgs)

stringToArray :: String -> [String]
stringToArray s = words s

findLongestWord :: String -> [String] -> String
findLongestWord x [] = x
findLongestWord l (w1:s1) 
    | length w1 > length l = findLongestWord w1 s1
    | otherwise = findLongestWord l s1 

main = do
    args <- getArgs
    content <- readFile (args !! 0) 
    let linesOfFile = lines content
    putStr (unlines $ (map (findLongestWord "" ) (map words linesOfFile)))