From: Siraaj Khandkar Date: Wed, 14 Nov 2018 17:39:31 +0000 (-0500) Subject: Fix indentation X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=61a05dbbfdda5f3539813fa196d960fb499c2f24;p=dups.git Fix indentation --- diff --git a/dups.ml b/dups.ml index 46e8b91..e88d888 100644 --- a/dups.ml +++ b/dups.ml @@ -112,12 +112,14 @@ let main input = let () = let input = ref Paths_on_stdin in - Arg.parse [] (fun path -> - if Sys.file_exists path then - input := Root_path path - else begin - eprintf "File does not exist: %S\n%!" path; - exit 1 - end - ) ""; + Arg.parse + [] + (function + | path when Sys.file_exists path -> + input := Root_path path + | path -> + eprintf "File does not exist: %S\n%!" path; + exit 1 + ) + ""; main !input