From ec4573d988acca368b098013345986cf585f4880 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Sat, 1 Apr 2017 13:56:08 -0400 Subject: [PATCH] Make servant-foreign build on GHC 8.2 --- servant-foreign/src/Servant/Foreign/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-foreign/src/Servant/Foreign/Internal.hs b/servant-foreign/src/Servant/Foreign/Internal.hs index 5165a8e5..ac68631c 100644 --- a/servant-foreign/src/Servant/Foreign/Internal.hs +++ b/servant-foreign/src/Servant/Foreign/Internal.hs @@ -189,7 +189,7 @@ instance (HasForeign lang ftype a, HasForeign lang ftype b) instance (KnownSymbol sym, HasForeignType lang ftype t, HasForeign lang ftype api) => HasForeign lang ftype (Capture sym t :> api) where - type Foreign ftype (Capture sym a :> api) = Foreign ftype api + type Foreign ftype (Capture sym t :> api) = Foreign ftype api foreignFor lang Proxy Proxy req = foreignFor lang Proxy (Proxy :: Proxy api) $