From c8d0ae89ef7bedf70c2cc83f8a74764fbe795bdb Mon Sep 17 00:00:00 2001
From: Frederic Ye <frederic.ye@mlstate.com>
Date: Fri, 3 Feb 2012 21:09:53 +0100
Subject: [PATCH] [fix] libnet: removed the creation of .mlstate at runtime

---
 libnet/ftpServer.ml  | 2 +-
 libnet/httpServer.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libnet/ftpServer.ml b/libnet/ftpServer.ml
index 547b6584..eb198351 100644
--- 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
index fe6e9c58..2bcd92ed 100644
--- 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