Commits

Anonymous committed 4fc0276

.

  • Participants
  • Parent commits 864c99e

Comments (0)

Files changed (1)

File src/dbi/decimal.ml

   struct
     module I = Iteratees.Make(Pure_IO);
 
+    (* TODO: move to ocaml-iteratees *)
     module It_add
      =
       struct
         module IO = It_IO
         ;
 
-        value enum_string ?(chunk_size=4096) str =
+        value enum_string ?(chunk_size=4096) str : enumerator char 'a =
           let str_len = String.length str in
           let arr_sz = min str_len chunk_size in
           let arr = Array.make arr_sz '\x00' in
             ]
         ;
 
+(*
         value test_enum_string : unit =
          ignore (IO.runIO (
-          (enum_string ~chunk_size:3 "abcdef" (break_chars (fun _ -> False)))
+          (enum_string ~chunk_size:3 "abcdefg" (break_chars (fun _ -> False)))
           >>% fun it ->
           (I.run it)
           >>% fun res -> (failwith "res=%s" res ; IO.return ())
          ))
         ;
+*)
 
       end
     ;