enumeratee that appends to a stream

gistfile1.txt

after :: Enumerator a IO b -> Enumeratee a a IO b
after enum =
    loop
  where
    loop = checkDone $ continue . step
    step k EOF = enum (Continue k) >>== return
    step k s = k s >>== loop