Merge pull request #1514 from guibou/fix_ghc92_build
Fix GHC 9.2 build
commit7a770b5a1e0fc250c5f19c0629329e28b69151c0
authorGaël Deest <gael.deest@tweag.io>
dateTue 25 Jan 2022, 11:42 (5 years ago)
parent75db4a522d5790
servant/src/Servant/Links.hs+1−1
@@ -649,7 +649,7 @@ simpleToLink _ toA _ = toLink toA (Proxy :: Proxy sub)
649649-- Erroring instance for 'HasLink' when a combinator is not fully applied
650650instance TypeError (PartialApplication HasLink arr) => HasLink ((arr :: a -> b) :> sub)
651651 where
652− type MkLink (arr :> sub) _ = TypeError (PartialApplication HasLink arr)
652+ type MkLink (arr :> sub) _ = TypeError (PartialApplication (HasLink :: * -> Constraint) arr)
653653 toLink = error "unreachable"
654654
655655-- Erroring instances for 'HasLink' for unknown API combinators