Commits

Dmitry Grebeniuk  committed dea7d1a

itlist_firstresult_lasterror: kosherized

  • Participants
  • Parent commits 9b699b2

Comments (0)

Files changed (1)

File dumbstreaming_it.ml

                 itlist_step_firstresult_lasterror lst s >>% fun
                 [ `First_result r -> IO.return r
                 | `Last_error e -> IO.error e
+                | `Cont [] -> assert False
+                | `Cont [it :: []] ->  IO.return (it, empty_stream)
                 | `Cont lst -> ie_contM & step lst
                 ]
           ]