[fix] libnet: removed the creation of .mlstate at runtime

MLstate · Feb 3, 2012 · c8d0ae8 · c8d0ae8
1 parent f50d597
commit c8d0ae8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/libnet/ftpServer.ml b/libnet/ftpServer.ml
@@ -82,7 +82,7 @@ type options =
       opt_name: string;
     }
 
-let initDir = Filename.concat (Lazy.force File.mlstate_dir) "ftp"
+let initDir = "./ftp" (* Filename.concat (Lazy.force File.mlstate_dir) "ftp" *)
 let folder = Folder.empty initDir
 
 let default_options =

diff --git a/libnet/httpServer.ml b/libnet/httpServer.ml
@@ -132,7 +132,7 @@ let m2 =
     (fun () ->
        let mime_types_file_content =
          try
-           let res = File.content ((Lazy.force File.mlstate_dir)^"/.mime.types") in
+           let res = "./mime.types" (* File.content ((Lazy.force File.mlstate_dir)^"/.mime.types")  *)in
            Logger.info "Loaded .mime.types file";
            res
          with Unix.Unix_error _ -> "" in