From dfa44e7b029a0f9a2a6aa56ebffce5d8cd0ce376 Mon Sep 17 00:00:00 2001
From: Dillon Kearns <dillon@dillonkearns.com>
Date: Sat, 13 Jun 2020 06:53:27 -0700
Subject: [PATCH] Format some type annotations on multiple lines.

---
 src/Pages/Internal/Platform/StaticResponses.elm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/Pages/Internal/Platform/StaticResponses.elm b/src/Pages/Internal/Platform/StaticResponses.elm
index 5fced5ca..f41ca00a 100644
--- a/src/Pages/Internal/Platform/StaticResponses.elm
+++ b/src/Pages/Internal/Platform/StaticResponses.elm
@@ -200,7 +200,12 @@ staticResponsesUpdate newEntry model =
     }
 
 
-addEntry : Dict String (Maybe String) -> String -> Result () String -> StaticHttpResult -> StaticHttpResult
+addEntry :
+    Dict String (Maybe String)
+    -> String
+    -> Result () String
+    -> StaticHttpResult
+    -> StaticHttpResult
 addEntry globalRawResponses hashedRequest rawResponse ((NotFetched request rawResponses) as entry) =
     let
         realUrls =
@@ -550,7 +555,11 @@ sendStaticResponsesIfDone config siteMetadata mode secrets allRawResponses error
         )
 
 
-performStaticHttpRequests : Dict String (Maybe String) -> SecretsDict -> List ( String, StaticHttp.Request a ) -> Result (List BuildError) (List { unmasked : RequestDetails, masked : RequestDetails })
+performStaticHttpRequests :
+    Dict String (Maybe String)
+    -> SecretsDict
+    -> List ( String, StaticHttp.Request a )
+    -> Result (List BuildError) (List { unmasked : RequestDetails, masked : RequestDetails })
 performStaticHttpRequests allRawResponses secrets staticRequests =
     staticRequests
         |> List.map