Fix elm-review warnings

Author: miniBill

review/suppressed/NoUnused.Exports.json

@@ -3,6 +3,7 @@
   "automatically created by": "elm-review suppress",
   "learn more": "elm-review suppress --help",
   "suppressions": [
+    { "count": 1, "filePath": "src/CliMonad.elm" },
     { "count": 1, "filePath": "src/OpenApi/Common/Internal.elm" }
   ]
 }

src/Common.elm

@@ -9,7 +9,6 @@ module Common exposing
     , Package(..)
     , RefTo
     , RequestBody
-    , Response
     , Schema
     , Type(..)
     , TypeName
@@ -22,7 +21,6 @@ module Common exposing
     , moduleToNamespace
     , parseRef
     , parseRequestBodyRef
-    , parseResponseRef
     , parseSchemaRef
     , refTo
     , refToString
@@ -481,10 +479,6 @@ type RequestBody
     = TypeLevelRequestBody Never
 
 
-type Response
-    = TypeLevelResponse Never
-
-
 type BasicType
     = Integer
     | Boolean
@@ -582,19 +576,6 @@ parseRequestBodyRef ref =
             )
 
 
-parseResponseRef : String -> Result String (RefTo Response)
-parseResponseRef ref =
-    parseRef ref
-        |> Result.andThen
-            (\(RefTo component res) ->
-                if component == Response then
-                    Ok (RefTo Response res)
-
-                else
-                    Err ("Expected a reference to a response, found a reference to " ++ ref)
-            )
-
-
 unwrapUnsafe : UnsafeName -> String
 unwrapUnsafe (UnsafeName name) =
     name

src/OpenApi/Generate.elm

@@ -86,7 +86,6 @@ type ContentSchema
     | StringContent Mime
     | BytesContent Mime
     | Base64Content Mime
-    | ReferenceContent (Common.RefTo Common.RequestBody)
 
 
 type alias AuthorizationInfo =
@@ -572,11 +571,6 @@ contentSchemaToBodyBuilder bodyContent =
                                     |> Gen.Base64.fromBytes
                                     |> Gen.Maybe.withDefault (Elm.string "")
                                 )
-
-                ReferenceContent _ ->
-                    CliMonad.map
-                        (\todo _ -> todo)
-                        (CliMonad.todo "toRequestFunctions:  branch 'ReferenceContent _' not implemented")
     in
     perPackageMap toBody perPackageBindings
 
@@ -656,9 +650,6 @@ contentSchemaToBodyParams contentSchema =
                     CliMonad.succeed (Just Gen.Bytes.annotation_.bytes)
                         |> CliMonad.withRequiredPackage "elm/bytes"
                         |> CliMonad.withRequiredPackage Common.base64PackageName
-
-                ReferenceContent _ ->
-                    CliMonad.fail "toRequestFunctions:  branch 'ReferenceContent _' not implemented"
     in
     annotation
         |> CliMonad.map
@@ -2600,9 +2591,6 @@ operationToTypesExpectAndResolver effectTypes method pathUrl operation =
                                                 , toMsg = toMsg
                                                 }
                                                     |> CliMonad.succeed
-
-                                            ReferenceContent _ ->
-                                                CliMonad.fail "operationToTypesExpectAndResolver: branch 'ReferenceContent _' not implemented"
                                     )
                                     (OpenApi.Response.content response
                                         |> contentToContentSchema
@@ -2680,9 +2668,6 @@ errorResponsesToType functionName errorResponses =
 
                                         Base64Content _ ->
                                             CliMonad.succeed Elm.Annotation.string
-
-                                        ReferenceContent ref ->
-                                            CliMonad.refToAnnotation ref
                                 )
 
                     Nothing ->
@@ -2777,9 +2762,6 @@ errorResponsesToErrorDecoders functionName errorResponses =
 
                                                                     EmptyContent ->
                                                                         CliMonad.succeed (Gen.Json.Decode.succeed Elm.unit)
-
-                                                                    ReferenceContent _ ->
-                                                                        CliMonad.todo "$ref errors are not supported yet"
                                                             )
 
                                                 Nothing ->
@@ -2850,16 +2832,6 @@ responseToSchema response =
         |> CliMonad.map OpenApi.Schema.get
 
 
-requestBodyToSchema : OpenApi.RequestBody.RequestBody -> CliMonad Json.Schema.Definitions.Schema
-requestBodyToSchema requestBody =
-    CliMonad.succeed requestBody
-        |> CliMonad.stepOrFail "The request does not have a json content"
-            (OpenApi.RequestBody.content >> searchForJsonMediaType)
-        |> CliMonad.stepOrFail "The request body's json content option doesn't have a schema"
-            OpenApi.MediaType.schema
-        |> CliMonad.map OpenApi.Schema.get
-
-
 makeNamespaceValid : String -> String
 makeNamespaceValid str =
     String.map