A problem about hGetContents

[Nick Name]

I would like to use hGetContents just to retrieve the list of the lines
of a file, but if I code a function like:

linesFromFile :: FilePath -> IO [String]
linesFromFile f = do
	h <- openFile f ReadMode
	l <- hGetContents h
	hClose h
	return (lines l)

I obviously always get the empty list as a result. How should I code the
function?

Vincenzo

-- 
Teatri vuoti e inutili potrebbero affollarsi
se tu ti proponessi di recitare te
[CCCP]