Fix ghc-7.8.4 build

This commit is contained in:
Catherine Galkina 2016-12-13 17:50:41 +03:00
parent 01324754da
commit 9d52cff1bb

View file

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE DefaultSignatures #-} {-# LANGUAGE DefaultSignatures #-}
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
@ -6,6 +7,9 @@
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE UndecidableInstances #-}
#include "overlapping-compat.h"
module Servant.Client.Generic module Servant.Client.Generic
( ClientLike(..) ( ClientLike(..)
, genericMkClientL , genericMkClientL
@ -142,7 +146,7 @@ instance (GClientList b acc, GClientList a (ClientList b acc))
=> GClientList (a :<|> b) acc where => GClientList (a :<|> b) acc where
gClientList (a :<|> b) acc = gClientList a (gClientList b acc) gClientList (a :<|> b) acc = gClientList a (gClientList b acc)
instance {-# OVERLAPPABLE #-} (ClientList client acc ~ (client ': acc)) instance OVERLAPPABLE_ (ClientList client acc ~ (client ': acc))
=> GClientList client acc where => GClientList client acc where
gClientList c acc = I c :* acc gClientList c acc = I c :* acc