Permalink
Browse files

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

  • Loading branch information...
1 parent f50d597 commit c8d0ae89ef7bedf70c2cc83f8a74764fbe795bdb @Aqua-Ye Aqua-Ye committed Feb 3, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 libnet/ftpServer.ml
  2. +1 −1 libnet/httpServer.ml
View
@@ -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 =
View
@@ -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

0 comments on commit c8d0ae8

Please sign in to comment.