From aff333dd2b5e317c81c9763314fcf6aee05a5e9e Mon Sep 17 00:00:00 2001
From: Dillon Kearns <dillon@incrementalelm.com>
Date: Fri, 28 Jan 2022 08:24:26 -0800
Subject: [PATCH] Ignore some tail-call optimization warnings.

---
 src/Pattern.elm        | 1 +
 src/Server/Request.elm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/src/Pattern.elm b/src/Pattern.elm
index 465c9b70..13ca2d8f 100644
--- a/src/Pattern.elm
+++ b/src/Pattern.elm
@@ -10,6 +10,7 @@ toJson (Pattern segments _) =
 
 segmentToJson : Segment -> Json.Encode.Value
 segmentToJson segment =
+    -- elm-review: known-unoptimized-recursion
     case segment of
         Literal literalString ->
             Json.Encode.object
diff --git a/src/Server/Request.elm b/src/Server/Request.elm
index 4a05a2c3..326952de 100644
--- a/src/Server/Request.elm
+++ b/src/Server/Request.elm
@@ -75,6 +75,7 @@ type Request decodesTo
 
 oneOfInternal : List ValidationError -> List (Json.Decode.Decoder ( Result ValidationError decodesTo, List ValidationError )) -> Json.Decode.Decoder ( Result ValidationError decodesTo, List ValidationError )
 oneOfInternal previousErrors optimizedDecoders =
+    -- elm-review: known-unoptimized-recursion
     case optimizedDecoders of
         [] ->
             Json.Decode.succeed ( Err (OneOf previousErrors), [] )
@@ -157,6 +158,7 @@ errorsToString validationErrors =
 -}
 errorToString : ValidationError -> String
 errorToString validationError =
+    -- elm-review: known-unoptimized-recursion
     case validationError of
         ValidationError message ->
             message