GHC 9.2.4

Reviewed By: josefs Differential Revision: D62342451 fbshipit-source-id: 0427750f3da8ab390166589509610814c6ca8dd4
facebookincubator · Sep 9, 2024 · e4884ed · e4884ed
1 parent 1de919a
commit e4884ed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/common/util/Util/ToExp.hs b/common/util/Util/ToExp.hs
@@ -132,7 +132,7 @@ instance (SVector.Storable a, ToExp a)
 instance ToExp A.Key where
   toExp k = fun "fromText" =$= toExp (keyToText k)
 
-instance ToExp A.Object where
+instance ToExp v => ToExp (KeyMap v) where
   toExp m = fun "fromList" =$= objectToList m
 #endif