From 9720be284e1df0ba1c8f63327c2c33fdc7f89e9f Mon Sep 17 00:00:00 2001
From: Loic Denuziere <loic@denuziere.net>
Date: Tue, 7 Aug 2018 11:03:58 +0200
Subject: [PATCH] [#1000] Fail on errors, not warnings

---
 src/compiler/WebSharper.Compiler.FSharp/Main.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/WebSharper.Compiler.FSharp/Main.fs b/src/compiler/WebSharper.Compiler.FSharp/Main.fs
index d1ca75fbb..f0a8a4c10 100644
--- a/src/compiler/WebSharper.Compiler.FSharp/Main.fs
+++ b/src/compiler/WebSharper.Compiler.FSharp/Main.fs
@@ -76,7 +76,7 @@ type WebSharperFSharpCompiler(logger, ?checker) =
 
         TimedStage "Waiting on merged metadata"
 
-        if not <| Array.isEmpty checkProjectResults.Errors then
+        if checkProjectResults.Errors |> Array.exists (fun e -> e.Severity = FSharpErrorSeverity.Error) then
             if assemblyName = "WebSharper.Main" || config.ProjectType = Some BundleOnly then
                 PrintFSharpErrors this.WarnSettings checkProjectResults.Errors
             None