spacepaste

code.ml

  1.  
  2. class normalization_cmd () =
  3. let no_normalization _ = 1.
  4. and tree_length t = Gtree.tree_length t
  5. in
  6. let normalization_map =
  7. StringMap.of_pairlist
  8. [
  9. "", no_normalization;
  10. "tree-length", tree_length;
  11. ]
  12. in
  13. object
  14. val normalize = flag "--normalize"
  15. (Plain ("", "Divide KR by a given value. Legal arguments are \"tree-length\"."))
  16. method specl = [ string_flag normalize; ]
  17. method get_normalization: 'a. (#Newick_bark.newick_bark Gtree.gtree as 'a) -> float =
  18. let s = fv normalize in
  19. try StringMap.find s normalization_map
  20. with
  21. | Not_found -> failwith ("Normalization "^s^" not known.")
  22. end
  23.  

error.txt

  1.  
  2. File "pplacer_src/guppy_cmdobjs.ml", line 203, characters 28-85:
  3. Error: This type scheme cannot quantify 'a :
  4. it is not a variable.
  5.