From 4e8a8c3a276a90ab4c35b1be43f218b77d2642f0 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