2016 Update

Task/Empty-directory/Standard-ML/empty-directory.ml

@@ -0,0 +1,12 @@
+fun isDirEmpty(path: string) =
+  let
+    val dir = OS.FileSys.openDir path
+    val dirEntryOpt = OS.FileSys.readDir dir
+  in
+    (
+      OS.FileSys.closeDir(dir);
+      case dirEntryOpt of
+        NONE => true
+      | _    => false
+    )
+  end;