X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FsearchEngine%2FsearchEngine.ml;h=109baa45c225644db9f5e4ac68239ca22ab6b9bc;hb=caeba1b9b9a59f0ecb344b4600eaf9727fa4ced4;hp=999d858aaedede548ab5fe18917146590f2ea541;hpb=d738fe14f480a254a11993dc3f3289580b985468;p=helm.git

diff --git a/helm/searchEngine/searchEngine.ml b/helm/searchEngine/searchEngine.ml
index 999d858aa..109baa45c 100644
--- a/helm/searchEngine/searchEngine.ml
+++ b/helm/searchEngine/searchEngine.ml
@@ -139,11 +139,8 @@ let callback (req: Http_types.request) outchan =
         let page = remove_fragment (req#param "url") in
         match page with
         | page when is_permitted page ->
-            let fname = sprintf "%s/%s" pages_dir (remove_fragment page) in
-            debug_print (sprintf "Returning file: %s" fname);
-            Http_daemon.send_basic_headers ~code:200 outchan;
-            Http_daemon.send_CRLF outchan;
-            Http_daemon.send_file ~name:fname outchan
+            Http_daemon.respond_file
+              ~fname:(sprintf "%s/%s" pages_dir (remove_fragment page)) outchan
         | page -> Http_daemon.respond_forbidden ~url:page outchan)
     | "/searchPattern" ->
         let term_string = req#param "term" in