data Content -> type TextHEADmaster

1 files changed, 2 insertions, 19 deletions

diff --git a/lib/G4fClient/Model.hs b/lib/G4fClient/Model.hs
index 35baa85..e878672 100644
--- a/lib/G4fClient/Model.hs
+++ b/lib/G4fClient/Model.hs
@@ -612,31 +612,14 @@ mkCompletionTokenDetails completionTokenDetailsReasoningTokens completionTokenDe
 -- | Content
 -- Content
 -- 
-data Content = Content
-  { 
-  } deriving (P.Show, P.Eq, P.Typeable)
-
--- | FromJSON Content
-instance A.FromJSON Content where
-  parseJSON = A.withObject "Content" $ \o ->
-    pure Content
-      
-
--- | ToJSON Content
-instance A.ToJSON Content where
-  toJSON Content  =
-   _omitNulls
-      [ 
-      ]
+type Content = Text
 
 
 -- | Construct a value of type 'Content' (by applying it's required fields, if any)
 mkContent
   :: Content
 mkContent =
-  Content
-  { 
-  }
+  ""
 
 -- ** ContentPart
 -- | ContentPart