git.iko.soy/typeable/servant
on master help sign in
Yielding for safe instances of HasLink
9e4285fAlejandro D. P
servant/src/Servant/Utils/Links.hs+2−2
compare with master
unifiedsplit
@@ -307,8 +307,8 @@ instance HasLink sub => HasLink (BasicAuth realm a :> sub) where
307
307
308-- Verb (terminal) instances
308-- Verb (terminal) instances
309instance HasLink (Verb m s ct a) where
309instance HasLink (Verb m s ct a) where
310− type MkLink (Verb m s ct a) = URI
310+ type MkLink (Verb m s ct a) = Link
311− toLink _ = linkURI
311+ toLink _ = id
312
312
313instance HasLink Raw where
313instance HasLink Raw where
314 type MkLink Raw = URI
314 type MkLink Raw = URI