More Exim stuff

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

diff --git a/src/main.sml b/src/main.sml
index 86da95f..415d9c2 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -48,10 +48,12 @@ fun basis () =
 
        fun loop files =
            case Posix.FileSys.readdir dir of
-               NONE => files
+               NONE => (Posix.FileSys.closedir dir;
+                        files)
              | SOME fname =>
                if String.isSuffix ".dtl" fname then
-                   loop (String.concatWith "/" [Config.libRoot, fname]
+                   loop (OS.Path.joinDirFile {dir = Config.libRoot,
+                                              file = fname}
                          :: files)
                else
                    loop files