Clear error message for trying to run all config in a nonexistent directory

[hcoop/domtool2.git] / src / main.sml

diff --git a/src/main.sml b/src/main.sml
index 4e377a9..51b8347 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -242,6 +242,14 @@ fun request fname =
 
 fun requestDir dname =
     let
 
 fun requestDir dname =
     let

+       val _ = if Posix.FileSys.access (dname, []) then
+                   ()
+               else
+                   (print ("Can't access " ^ dname ^ ".\n");
+                    print "Did you mean to run domtool on a specific file, instead of asking for all\n";
+                    print "files in your ~/domtool directory?\n";
+                    OS.Process.exit OS.Process.failure)
+

        val _ = ErrorMsg.reset ()
 
        val (user, bio) = requestBio (fn () => checkDir dname)
        val _ = ErrorMsg.reset ()
 
        val (user, bio) = requestBio (fn () => checkDir dname)