From 09bae8cdd0dcd9dde28ed1dcbabacf42b29871ff Mon Sep 17 00:00:00 2001
From: Dustin Moris Gorski <dustinmoris@gmail.com>
Date: Sun, 30 Sep 2018 18:50:45 +0100
Subject: [PATCH] Increased cache duration

... and added more logging to broken circuits.
---
 src/BuildStats/BuildStats.fsproj | 2 +-
 src/BuildStats/HttpClients.fs    | 2 +-
 src/BuildStats/Web.fs            | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/BuildStats/BuildStats.fsproj b/src/BuildStats/BuildStats.fsproj
index 19a517c..3bad92b 100644
--- a/src/BuildStats/BuildStats.fsproj
+++ b/src/BuildStats/BuildStats.fsproj
@@ -2,7 +2,7 @@
 
   <PropertyGroup>
     <TargetFramework>netcoreapp2.1</TargetFramework>
-    <Version>5.5.0</Version>
+    <Version>5.6.0</Version>
     <AssemblyName>BuildStats</AssemblyName>
     <OutputType>Exe</OutputType>
     <TreatWarningsAsErrors>true</TreatWarningsAsErrors>
diff --git a/src/BuildStats/HttpClients.fs b/src/BuildStats/HttpClients.fs
index 5818775..944c07e 100644
--- a/src/BuildStats/HttpClients.fs
+++ b/src/BuildStats/HttpClients.fs
@@ -52,7 +52,7 @@ type CircuitBreakerHttpClient (httpClient        : IResilientHttpClient,
                     | true  -> return response
                     | false ->
                         let breakDuration = getBreakDuration response
-                        logger.LogWarning("Request to '{url}' has failed. Breaking circuit for: {seconds}sec.", request.RequestUri, breakDuration.TotalSeconds)
+                        logger.LogWarning("Request to '{url}' has failed (Http status code: {statusCode}). Breaking circuit for: {seconds}sec.", request.RequestUri, response.StatusCode, breakDuration.TotalSeconds)
                         brokenSince     <- DateTime.Now
                         isBrokenCircuit <- true
                         return response
diff --git a/src/BuildStats/Web.fs b/src/BuildStats/Web.fs
index d25d23d..cabf407 100644
--- a/src/BuildStats/Web.fs
+++ b/src/BuildStats/Web.fs
@@ -60,7 +60,7 @@ let cssHandler (bundle : string) =
 
 let cachedSvg (body : string) =
     responseCaching
-        (Public (TimeSpan.FromSeconds 60.0))
+        (Public (TimeSpan.FromSeconds 180.0))
         (Some "Accept-Encoding")
         (Some [| "includePreReleases"; "includeBuildsFromPullRequest"; "buildCount"; "showStats"; "authToken" |])
     >=> setHttpHeader "Content-Type" "image/svg+xml"