From 2c61b5cea50de65d9a0fa4aafb49e9dab503be26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A1s=20Jank=C3=B3?= <andras.janko@gmail.com>
Date: Fri, 17 Jul 2020 13:29:40 +0200
Subject: [PATCH] #1108 Add WebSharperSharedMetadata=None setting option

---
 src/sitelets/WebSharper.Web/Shared.fs | 45 ++++++++++++++++-----------
 1 file changed, 26 insertions(+), 19 deletions(-)

diff --git a/src/sitelets/WebSharper.Web/Shared.fs b/src/sitelets/WebSharper.Web/Shared.fs
index c4b035862..4b124c0e3 100644
--- a/src/sitelets/WebSharper.Web/Shared.fs
+++ b/src/sitelets/WebSharper.Web/Shared.fs
@@ -31,25 +31,32 @@ let private trace =
 
 let private loadMetadata () =
     let before = System.DateTime.UtcNow
-    let filterExpressions : M.Info -> M.Info =
-        match Context.GetSetting "WebSharperSharedMetadata" with
-        | Some "Inlines" -> fun m -> m.DiscardNotInlineExpressions()
-        | Some "NotInlines" -> fun m -> m.DiscardInlineExpressions()
-        | Some "Full" | None -> id
-        | _ -> fun m -> m.DiscardExpressions()
-    let metas =
-        WebSharper.Core.Resources.AllReferencedAssemblies.Value
-        |> Seq.choose M.IO.LoadReflected
-        |> Seq.map filterExpressions
-        |> Seq.toList
-    let after = System.DateTime.UtcNow
-    trace.TraceInformation("Initialized WebSharper in {0} seconds.",
-        (after-before).TotalSeconds)
-    if List.isEmpty metas then 
-        M.Info.Empty, Graph.Empty 
-    else 
-        let graph = Graph.FromData (metas |> Seq.map (fun m -> m.Dependencies))
-        { M.Info.UnionWithoutDependencies metas with M.Dependencies = graph.GetData() }, graph
+    let metadataSetting =
+        Context.GetSetting "WebSharperSharedMetadata"
+        |> Option.map (fun x -> x.ToLower())
+    match metadataSetting with
+    | Some "none" ->
+        M.Info.Empty, Graph.Empty
+    | _ ->
+        let filterExpressions : M.Info -> M.Info =
+            match metadataSetting with
+            | Some "inlines" -> fun m -> m.DiscardNotInlineExpressions()
+            | Some "notinlines" -> fun m -> m.DiscardInlineExpressions()
+            | Some "full" | None -> id
+            | _ -> fun m -> m.DiscardExpressions()
+        let metas =
+            WebSharper.Core.Resources.AllReferencedAssemblies.Value
+            |> Seq.choose M.IO.LoadReflected
+            |> Seq.map filterExpressions
+            |> Seq.toList
+        let after = System.DateTime.UtcNow
+        trace.TraceInformation("Initialized WebSharper in {0} seconds.",
+            (after-before).TotalSeconds)
+        if List.isEmpty metas then 
+            M.Info.Empty, Graph.Empty 
+        else 
+            let graph = Graph.FromData (metas |> Seq.map (fun m -> m.Dependencies))
+            { M.Info.UnionWithoutDependencies metas with M.Dependencies = graph.GetData() }, graph
 
 let Metadata, Dependencies = loadMetadata ()