diff options
| author | tv <tv@krebsco.de> | 2026-02-21 20:47:54 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-02-21 22:22:17 +0100 |
| commit | 528f21f3e0862511fdf4b04659565f8cb3346aac (patch) | |
| tree | 007ed45538bc2315d5a6cc9fe432c024674b1a82 | |
| parent | a43e1aa62066dd16523c6fac566ed0b1a0fc1db2 (diff) | |
| -rw-r--r-- | lib/G4fClient/Model.hs | 21 | ||||
| -rw-r--r-- | tests/Instances.hs | 8 |
2 files changed, 2 insertions, 27 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 diff --git a/tests/Instances.hs b/tests/Instances.hs index c7a3624..7282196 100644 --- a/tests/Instances.hs +++ b/tests/Instances.hs @@ -236,15 +236,7 @@ genCompletionTokenDetails n = <$> arbitrary -- completionTokenDetailsReasoningTokens :: Int <*> arbitrary -- completionTokenDetailsImageTokens :: Int <*> arbitrary -- completionTokenDetailsAudioTokens :: Int - -instance Arbitrary Content where - arbitrary = sized genContent -genContent :: Int -> Gen Content -genContent n = - - pure Content - instance Arbitrary ContentPart where arbitrary = sized genContentPart |