From c08122e28eca9df17570cac186cc5cb23f044cf6 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sat, 21 Feb 2026 14:37:02 +0100
Subject: add G4fClient.Model.AnyType

---
 lib/G4fClient/Model.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lib')

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
-- 
cgit v1.2.3