From 528f21f3e0862511fdf4b04659565f8cb3346aac Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 21 Feb 2026 20:47:54 +0100 Subject: data Content -> type Text --- lib/G4fClient/Model.hs | 21 ++------------------- 1 file changed, 2 insertions(+), 19 deletions(-) (limited to 'lib/G4fClient') 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 -- cgit v1.2.3