Merge pull request #139 from lappkast/master

Added method browse_file which takes root_path as argument.

Author: ademar

Suave/Http.fs

@@ -479,10 +479,14 @@ module Http =
         else raise <| Exception("File canonalization issue.")
       else raise <| Exception("File canonalization issue.")
 
-    let browse_file file_name =
+    let browse_file root_path file_name =
       fun ({request = r; runtime = q} as h) ->
-        file (local_file file_name q.home_directory) h
+        file (local_file file_name root_path) h
 
+    let browse_file' file_name =
+      fun ({request = r; runtime = q} as h) ->
+        browse_file q.home_directory file_name h
+    
     let browse root_path : WebPart =
       warbler (fun { request = r; runtime = { logger = l } } ->
         Log.verbose l

Suave/Http.fsi

@@ -1343,12 +1343,19 @@ module Http =
     /// </remarks>
     val local_file : file_name:string -> root_path:string -> string
 
+    /// <summary><para>
+    /// 'browse' the file given as the filename, by sending it to the browser with a
+    /// MIME-type/Content-Type header based on its extension. Will service from the
+    /// root_path.
+    /// </para></summary>
+    val browse_file : root_path:string -> file_name:string -> WebPart
+
     /// <summary><para>
     /// 'browse' the file given as the filename, by sending it to the browser with a
     /// MIME-type/Content-Type header based on its extension. Will service from the
     /// current directory.
     /// </para></summary>
-    val browse_file : file_name:string -> WebPart
+    val browse_file' : file_name:string -> WebPart
 
     /// <summary><para>
     /// 'browse' the file in the sense that the contents of the file are sent based on the

Tests/HttpFile.fs

@@ -36,10 +36,10 @@ let compression =
       testCase "verifiying we get the same size uncompressed" <| fun _ ->
         Assert.Equal("length should match"
         , test_file_size
-        , (run_with' (Files.browse_file "test-text-file.txt") |> req_bytes GET "/" None).Length |> int64)
+        , (run_with' (Files.browse_file' "test-text-file.txt") |> req_bytes GET "/" None).Length |> int64)
 
       testCase "gzip static file" <| fun _ ->
         Assert.Equal("length should match"
         , test_file_size
-        , (run_with' (Files.browse_file "test-text-file.txt") |> req_gzip_bytes GET "/" None).Length |> int64)
+        , (run_with' (Files.browse_file' "test-text-file.txt") |> req_gzip_bytes GET "/" None).Length |> int64)
     ]