diff options
| author | tv <tv@krebsco.de> | 2026-02-21 14:37:02 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-02-21 22:22:17 +0100 |
| commit | c08122e28eca9df17570cac186cc5cb23f044cf6 (patch) | |
| tree | 80b889c81d377a4fb2bb7d6372032744ec60a535 /lib/G4fClient | |
| parent | cf94f42c6f67f7b99240b06b6e89fddf4df15bd4 (diff) | |
add G4fClient.Model.AnyType
Diffstat (limited to 'lib/G4fClient')
| -rw-r--r-- | lib/G4fClient/Model.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/G4fClient/Model.hs b/lib/G4fClient/Model.hs index 70cc4c5..35baa85 100644 --- a/lib/G4fClient/Model.hs +++ b/lib/G4fClient/Model.hs @@ -106,6 +106,21 @@ newtype XUser = XUser { unXUser :: Text } deriving (P.Eq, P.Show) -- * Models +-- ** AnyType +newtype AnyType = AnyType A.Value + deriving (P.Eq, P.Show) + +instance A.FromJSON AnyType where + parseJSON v = pure (AnyType v) + +instance A.ToJSON AnyType where + toJSON (AnyType v) = v + +instance WH.ToHttpApiData AnyType where + toUrlPiece _ = "" + toQueryParam _ = "" + toHeader _ = "" + -- ** ApiKey -- | ApiKey -- Api Key |