From 61a05dbbfdda5f3539813fa196d960fb499c2f24 Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Wed, 14 Nov 2018 12:39:31 -0500
Subject: [PATCH] Fix indentation

---
 dups.ml | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

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
-- 
2.20.1