File: doc.ml

package info (click to toggle)
ocaml-obuild 0.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,456 kB
  • sloc: ml: 14,491; sh: 211; ansic: 34; makefile: 11
file content (11 lines) | stat: -rw-r--r-- 330 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
open Fugue

exception DocumentationBuildingFailed of string

let runOcamldoc pp =
  let args = [ Prog.get_ocamldoc (); "-html" ] @ maybe [] (fun s -> [ "-pp"; s ]) pp @ [] in
  match Process.run args with
  | Process.Failure er -> raise (DocumentationBuildingFailed er)
  | Process.Success (_, _, _) -> ()

let run _projFile = ()