Yielding for safe instances of HasLink
commit9e4285f99d1deb12d243bf09c5b27a43e5bc2143
authorAlejandro D. P <vwwv@correo.ugr.es>
dateMon 15 Aug 2016, 01:44 (10 years ago)
parent372c1e2
servant/src/Servant/Utils/Links.hs+2−2
@@ -307,8 +307,8 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where
307307
308308-- Verb (terminal) instances
309309instance HasLink (Verb m s ct a) where
310− type MkLink (Verb m s ct a) = URI
311− toLink _ = linkURI
310+ type MkLink (Verb m s ct a) = Link
311+ toLink _ = id
312312
313313instance HasLink Raw where
314314 type MkLink Raw = URI