Merge pull request #859 from ovatsus/master

Fix Http module not working correctly in Windows 8.1 (closes #858)
fsprojects · Jul 11, 2015 · 63c96e5 · 63c96e5
2 parents 20a59cd + 750495f
commit 63c96e5
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Net/Http.fs b/src/Net/Http.fs
@@ -345,9 +345,9 @@ module private HttpHelpers =
         return output 
     }
 
-    let getProperty (typ:Type) obj prop =
+    let getProperty (typ:Type) obj prop =        
 #if FX_NET_CORE_REFLECTION
-        let prop = typ.GetRuntimeProperty(prop)
+        let prop = try typ.GetRuntimeProperty prop with _ -> null
         if prop <> null && prop.CanRead then
             try
                 prop.GetValue(obj) |> unbox |> Some
@@ -356,7 +356,7 @@ module private HttpHelpers =
         else
             None
 #else
-        let prop = typ.GetProperty(prop)
+        let prop = try typ.GetProperty prop with _ -> null
         if prop <> null && prop.CanRead then
             try
                 prop.GetValue(obj, [| |]) |> unbox |> Some