git.iko.soy/typeable/servant
on master help sign in
remove tabs
8b38344Alp Mestanogullari
servant/src/Servant/Utils/Links.hs+2−2
compare with master
unifiedsplit
@@ -342,8 +342,8 @@ instance (ToText v, HasLink sub)
342 addSegment (escape . unpack $ toText v) l
342 addSegment (escape . unpack $ toText v) l
343
343
344instance HasLink sub => HasLink (Header sym a :> sub) where
344instance HasLink sub => HasLink (Header sym a :> sub) where
345− type MkLink (Header sym a :> sub) = MkLink sub
345+ type MkLink (Header sym a :> sub) = MkLink sub
346− toLink _ = toLink (Proxy :: Proxy sub)
346+ toLink _ = toLink (Proxy :: Proxy sub)
347
347
348-- Verb (terminal) instances
348-- Verb (terminal) instances
349instance HasLink (Get y r) where
349instance HasLink (Get y r) where