Source

core hello world / workshop / async / pipe_manifest.ml

Diff from to

workshop/async/pipe_manifest.ml

       Deferred.Queue.fold lineq ~init:sum ~f:(fun sum line ->
         file_size line
         >>= fun file_size ->
-        return (sum + file_size)))
+        return (sum + file_size)
+      ))
   in
   Reader.with_file manifest_filename ~f:read_file
 ;;