Source

ocaml-iteratees / tests_common.ml

Diff from to

File tests_common.ml

       >>% fun () ->
       match opt_err with
       [ None -> ie_doneM () s
-      | Some e -> IO.return & (throw_err e, s)
+      | Some e -> IO.return & (throw_err e, Sl.one s)
       ]
   | Chunk c ->
       pr