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

Fix build error on GHC 8.6

Browse source
This commit is contained in:
Gaël Deest 2021-11-17 15:29:22 +01:00
parent 42b7d0eb9b
commit 67a37dc3f6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant/src/Servant/Links.hs
View file

@ -614,7 +614,7 @@ simpleToLink _ toA _ = toLink toA (Proxy :: Proxy sub)
-- Erroring instance for 'HasLink' when a combinator is not fully applied -- Erroring instance for 'HasLink' when a combinator is not fully applied
instance TypeError (PartialApplication HasLink arr) => HasLink ((arr :: a -> b) :> sub) instance TypeError (PartialApplication HasLink arr) => HasLink ((arr :: a -> b) :> sub)
where where
type MkLink (arr :> _) _ = TypeError (PartialApplication HasLink arr) type MkLink (arr :> sub) _ = TypeError (PartialApplication HasLink arr)
toLink = error "unreachable" toLink = error "unreachable"
-- Erroring instances for 'HasLink' for unknown API combinators -- Erroring instances for 'HasLink' for unknown API combinators