ocamlspot / dotfile.ml

Diff from to

dotfile.ml

   let build_dir = ref None in
   let set name ref v =
     match !ref with
-    | Some _ -> failwith (Printf.sprintf "key %s is defined twice" name)
+    | Some _ -> failwithf "key %s is defined twice" name
     | None -> ref := Some v
   in
   let ic = open_in s in
     | "build_dir", Some s -> 
         set "build_dir" build_dir s;
         load ()
-    | "build_dir", None -> failwith (Printf.sprintf "key %S must have a value" key)
-    | key, _ -> failwith (Printf.sprintf "unknown key %S" key)
+    | "build_dir", None -> failwithf "key %S must have a value" key
+    | key, _ -> failwithf "unknown key %S" key
   in
   try load () with End_of_file ->
     close_in ic;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.