www.jammni.de

import System.IO
import Data.ByteString as BS

main = do
  let path = "/tmp/example" 
  file_handle ← openFile path ReadMode
  msg ← read_file file_handle []
  print (Prelude.take 2 msg)
  print "fin"

read_file :: Handle → IO [ByteString]
read_file handle = do
  eof_reached ← hIsEOF handle
  if eof_reached 
    then return []
    else do
      current_line ← BS.hGetLine handle
      print current_line
      next_line    ← read_file handle
      return (current_line : next_line)