import IO main = do hdl <- openFile "/tmp/foo.txt" ReadMode a <- hGetChar hdl pos <- hGetPosn hdl b <- hGetLine hdl print (a,b) c <- hGetChar hdl d <- hGetLine hdl print (c,d) hSetPosn pos e <- hGetChar hdl f <- hGetLine hdl print (e,f)