$OpenBSD: patch-applications_challenged_ml,v 1.1 2015/08/30 15:56:12 avsm Exp $
--- applications/challenged.ml.orig	Mon Aug  3 18:07:28 2015
+++ applications/challenged.ml	Mon Aug  3 18:07:28 2015
@@ -29,19 +29,13 @@ module Options = struct
   let brokenlist = StdOpt.store_true ()
   let downgrades = StdOpt.store_true ()
   let cluster = StdOpt.store_true ()
-IFDEF HASPARMAP THEN
-  let ncores = StdOpt.int_option ~default:1 ()
-  let chunksize = StdOpt.int_option ()
-END
+
+
   open OptParser ;;
 
-IFDEF HASPARMAP THEN
-  add options ~long_name:"ncores"
-    ~help:"Number of cores to use on a multicore" ncores;
-  add options ~long_name:"chunksize"
-    ~help:"Size of each task executed by the workers (controls granularity)" chunksize;
-END
 
+
+
   add options ~long_name:"checkonly"
     ~help:"Check only these packages ex. sn1 (=sv1),sn2 (=sv2)" checkonly;
   add options ~long_name:"broken" ~short_name:'b' 
@@ -227,16 +221,11 @@ let challenged 
   (* computing *)
   let results = 
     let map f l =
-IFDEF HASPARMAP THEN
-    let ncores = OptParse.Opt.get Options.ncores in
-    match OptParse.Opt.opt Options.chunksize with
-      None ->     
-	Parmap.parmap ~ncores f (Parmap.L l)
-    | Some chunksize ->       
-	Parmap.parmap ~ncores ~chunksize f (Parmap.L l)
-ELSE
+
+
     List.map f l
-END
+
+
     in
     map (fun ((sn,sv,version),(cluster,vl,constr)) ->
       let startd=Unix.gettimeofday() in
