//

Author: mlang

openai-servant/openai-servant.cabal

@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.35.2.
+-- This file has been generated from package.yaml by hpack version 0.36.0.
 --
 -- see: https://github.com/sol/hpack
 
@@ -52,6 +52,7 @@ library
     , base >=4.7 && <5
     , bytestring
     , casing
+    , http-media
     , mime-types
     , servant
     , servant-auth

openai-servant/package.yaml

@@ -27,6 +27,8 @@ dependencies:
   - time
   - vector
   - mime-types
+  - http-media
+
 
 ghc-options:
   - -Wall

openai-servant/src/OpenAI/Api.hs

@@ -9,13 +9,14 @@ import Servant.Auth.Client
 import Servant.Multipart.API
 import Data.List.NonEmpty (NonEmpty((:|)))
 import Data.ByteString.Lazy (ByteString)
+import           Network.HTTP.Media ((//))
 
 type OpenAIAuth = Auth '[Bearer] ()
 
 data Audio
 
 instance Accept Audio where
-  contentTypes _ = "audio/mpeg" :| []
+  contentType _ = "audio" // "mpeg"
 
 instance MimeUnrender Audio ByteString where
   mimeUnrender _ bs = Right bs