Ignore some tail-call optimization warnings.

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

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