running a Sitelet from static property does not fail silently

dotnet-websharper · Oct 26, 2015 · 6c66bdd · 6c66bdd
1 parent 3104573
commit 6c66bdd
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/src/sitelets/WebSharper.Sitelets/HttpModule.fs b/src/sitelets/WebSharper.Sitelets/HttpModule.fs
@@ -56,11 +56,11 @@ module internal SiteLoading =
             | _ -> Seq.empty
         )
         |> Seq.tryPick (fun ty ->
-            try
-                ty.GetProperties(BF.Static ||| BF.Public ||| BF.NonPublic)
-                |> Array.tryPick (fun p ->
-                    match Attribute.GetCustomAttribute(p, aT) with
-                    | :? WebsiteAttribute ->
+            ty.GetProperties(BF.Static ||| BF.Public ||| BF.NonPublic)
+            |> Array.tryPick (fun p ->
+                match Attribute.GetCustomAttribute(p, aT) with
+                | :? WebsiteAttribute ->
+                    try
                         let sitelet = p.GetGetMethod().Invoke(null, [||])
                         let upcastSitelet =
                             sitelet.GetType()
@@ -69,10 +69,10 @@ module internal SiteLoading =
                                 .Invoke(sitelet, [||])
                                 :?> Sitelet<obj>
                         Some (upcastSitelet, [])
-                    | _ -> None
-                )
-            with _ -> None
-
+                    with e ->
+                        raise <| exn("Failed to initialize sitelet definition: " + ty.FullName + "." + p.Name, e)  
+                | _ -> None
+            )
         )
 
     let TryLoadSite (assembly: Assembly) =