From 67a37dc3f6f6d6b326b439ba732cfe446090be97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ga=C3=ABl=20Deest?= Date: Wed, 17 Nov 2021 15:29:22 +0100 Subject: [PATCH] Fix build error on GHC 8.6 --- servant/src/Servant/Links.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant/src/Servant/Links.hs b/servant/src/Servant/Links.hs index d28815d6..0966fe04 100644 --- a/servant/src/Servant/Links.hs +++ b/servant/src/Servant/Links.hs @@ -614,7 +614,7 @@ simpleToLink _ toA _ = toLink toA (Proxy :: Proxy sub) -- Erroring instance for 'HasLink' when a combinator is not fully applied instance TypeError (PartialApplication HasLink arr) => HasLink ((arr :: a -> b) :> sub) where - type MkLink (arr :> _) _ = TypeError (PartialApplication HasLink arr) + type MkLink (arr :> sub) _ = TypeError (PartialApplication HasLink arr) toLink = error "unreachable" -- Erroring instances for 'HasLink' for unknown API combinators