Add pathStarts filter

SuaveIO · Jun 13, 2017 · 1a156f1 · 1a156f1
1 parent e79ba4a
commit 1a156f1
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Suave.IIS/Filters.fs b/src/Suave.IIS/Filters.fs
@@ -1,5 +1,11 @@
 module Suave.IIS.Filters
 
+/// IIS wrapper for Suave.Filters.pathStarts function
+let pathStarts (args:string []) p =
+    match args |> Configuration.parseSetup with
+    | Some({Path = Some setupPath}) -> Suave.Filters.pathStarts <| sprintf "/%s%s" setupPath p
+    | _ -> Suave.Filters.pathStarts p
+
 /// IIS wrapper for Suave.Filters.path function
 let path (args:string []) p =
     match args |> Configuration.parseSetup with