anchor.diff:              | Max_Hits (i)          -> ["-max_target_seqs"; string i]
   
   
  -    let runMakeBlastDBAsync (bcContext:BioContainer.BcContext) (opt:MakeDbParams list) = 
  -
  -        let cmds = (opt |> List.map (MakeDbParams.makeCmdWith bcContext.Mount))
  +    let runMakeBlastDBAsync (bcContext:BioContainer.BcContext) (opt:MakeBlastDbParams list) = 
  +
  +        let cmds = (opt |> List.map (MakeBlastDbParams.makeCmdWith bcContext.Mount))
           let tp = "makeblastdb"::(cmds |> List.concat)
   
           printfn "Starting process makeblastdb\r\nparameters:"
  
positive.code:             | Protein       -> "prot"
              | Nucleotide    -> "nucl"
  
  
      type MakeDbParams =
          | Input  of string
          | Output of string
          | DbType of DbType
          | MaskData of string
          | ParseSeqIds    
  
          static member makeCmdWith (m: MountInfo) = function
              | Input  (path)     -> ["-in"  ;(MountInfo.containerPathOf m path)]
              | Output (path)     -> ["-out" ;(MountInfo.containerPathOf m path)]
              | DbType (dbt)      -> ["-dbtype"; (DbType.make dbt)]
              | MaskData (path)   -> ["-mask_data"; (sprintf "%s.asnb") (MountInfo.containerPathOf m path)]
              | ParseSeqIds       -> ["-parse_seqids"] 
  
  
      type OutputType = 
  
negative.code:         | Num_threads of int
          | Max_Hits of int
  
          static member makeCmd  = function
              | SearchDB  (path)      -> ["-db"    ; path]
              | Query     (path)      -> ["-query" ; path]
              | Output    (path)      -> ["-out"   ; path]
              | OutputType(format)    -> ["-outfmt"; string (format |> OutputType.make)]
              | OutputTypeCustom(t,p) ->  let tmp = 
                                              p 
                                              |> Seq.map OutputCustom.make 
                                              |> String.concat " "
                                          match t with
                                          | OutputType.Tabular             -> ["-outfmt"; sprintf "%s %s" (string (t |> OutputType.make)) tmp]
                                          | OutputType.TabularWithComments -> ["-outfmt"; sprintf "%s %s" (string (t |> OutputType.make)) tmp]
                                          | OutputType.CSV                 -> ["-outfmt"; sprintf "%s %s" (string (t |> OutputType.make)) tmp]
                                          | _ -> failwithf "Output format %A does not support custom columns." t                                
              | Num_threads(i)        -> ["-num_threads"; string i]
              | Max_Hits (i)          -> ["-max_target_seqs"; string i]
  
          static member makeCmdWith (m: MountInfo) = function
              | SearchDB  (path)      -> ["-db"    ; (MountInfo.containerPathOf m path)]
              | Query     (path)      -> ["-query" ; (MountInfo.containerPathOf m path)]
  