eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix ghc-7.8.4 build

Browse source
This commit is contained in:
Catherine Galkina 2016-12-13 17:50:41 +03:00
parent 01324754da
commit 9d52cff1bb
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
servant-client/src/Servant/Client/Generic.hs
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