From cc7a5c602199f1786ddbc0562c108bce18834b62 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Fri, 17 Nov 2023 15:15:39 +0000
Subject: [PATCH] Fix build on Aeson 2.2

---
 src/Web/Api/WebDriver/Types.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Web/Api/WebDriver/Types.hs b/src/Web/Api/WebDriver/Types.hs
index dc99860..7f0618e 100644
--- a/src/Web/Api/WebDriver/Types.hs
+++ b/src/Web/Api/WebDriver/Types.hs
@@ -12,7 +12,7 @@ The WebDriver protocol involves passing several different kinds of JSON objects.
 Note that while the WebDriver spec defines some JSON objects, in general a given WebDriver server can accept additional properties on any given object. Our types here will be limited to the "spec" object signatures, but our API will need to be user extensible.
 -}
 
-{-# LANGUAGE OverloadedStrings, RecordWildCards, BangPatterns, CPP #-}
+{-# LANGUAGE OverloadedStrings, RecordWildCards, BangPatterns, CPP, FlexibleContexts #-}
 module Web.Api.WebDriver.Types (
   -- * Stringy Types
     SessionId
@@ -149,7 +149,7 @@ malformedValue !name !value = fail $ unpack $
 object_ :: [Maybe Pair] -> Value
 object_ = object . filter (\(_, v) -> v /= Null) . catMaybes
 
-(.==) :: (ToJSON v, KeyValue kv) => Text -> v -> Maybe kv
+(.==) :: (ToJSON v, KeyValue Value kv) => Text -> v -> Maybe kv
 (.==) key value =
 #if MIN_VERSION_aeson(2,0,0)
   Just ((fromText key) .= value) --    val = lookup (fromText key) obj
@@ -157,7 +157,7 @@ object_ = object . filter (\(_, v) -> v /= Null) . catMaybes
   Just (key .= value)
 #endif
 
-(.=?) :: (ToJSON v, KeyValue kv) => Text -> Maybe v -> Maybe kv
+(.=?) :: (ToJSON v, KeyValue Value kv) => Text -> Maybe v -> Maybe kv
 (.=?) key =
 #if MIN_VERSION_aeson(2,0,0)
   fmap ((fromText key) .=)