@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE DataKinds #-}
23{-# LANGUAGE DefaultSignatures #-}
34{-# LANGUAGE FlexibleContexts #-}
@@ -6,6 +7,9 @@
67{-# LANGUAGE TypeFamilies #-}
78{-# LANGUAGE TypeOperators #-}
89{-# LANGUAGE UndecidableInstances #-}
10+
11+#include "overlapping-compat.h"
12+
913module Servant.Client.Generic
1014 ( ClientLike(..)
1115 , genericMkClientL
@@ -142,7 +146,7 @@ instance (GClientList b acc, GClientList a (ClientList b acc))
142146 => GClientList (a :<|> b) acc where
143147 gClientList (a :<|> b) acc = gClientList a (gClientList b acc)
144148
145−instance {-# OVERLAPPABLE #-} (ClientList client acc ~ (client ': acc))
149+instance OVERLAPPABLE_ (ClientList client acc ~ (client ': acc))
146150 => GClientList client acc where
147151 gClientList c acc = I c :* acc
148152