Skip to content

Commit 9d52cff

Browse files
author
Catherine Galkina
committed
Fix ghc-7.8.4 build
1 parent 0132475 commit 9d52cff

File tree

1 file changed

+5
-1
lines changed

1 file changed

+5
-1
lines changed

servant-client/src/Servant/Client/Generic.hs

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -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+
913
module 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

0 commit comments

Comments
 (0)