From 9e4285f99d1deb12d243bf09c5b27a43e5bc2143 Mon Sep 17 00:00:00 2001 From: "Alejandro D. P" Date: Mon, 15 Aug 2016 01:44:23 +0200 Subject: [PATCH] Yielding for safe instances of HasLink --- servant/src/Servant/Utils/Links.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/servant/src/Servant/Utils/Links.hs b/servant/src/Servant/Utils/Links.hs index d6b218be..844032f4 100644 --- a/servant/src/Servant/Utils/Links.hs +++ b/servant/src/Servant/Utils/Links.hs @@ -307,8 +307,8 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where -- Verb (terminal) instances instance HasLink (Verb m s ct a) where - type MkLink (Verb m s ct a) = URI - toLink _ = linkURI + type MkLink (Verb m s ct a) = Link + toLink _ = id instance HasLink Raw where type MkLink Raw = URI