
9 Jul
2009
9 Jul
'09
10:40 a.m.
I'm testing iteratee. This is the possible bug I've found import Data.Iteratee.IO import Data.Iteratee.Base import Data.Iteratee.Char import System.IO import Control.Exception main = do h <- openFile "mamma23" ReadWriteMode hPutStrLn h "ciao" hSeek h AbsoluteSeek 0 l <- (enumHandle h stream2list :: IO (Iteratee IO String)) >>= run print $ assert (l == "ciao") () assertion failed This aside, I'd like to know if there is a way to use parsec library to make an Iteratee, so if it's possible to make parsec spit out a continuation on EOF, or maybe as in delcont language to capture it. thanks paolino