@@ -342,8 +342,8 @@ instance (ToText v, HasLink sub)
342342 addSegment (escape . unpack $ toText v) l
343343
344344instance HasLink sub => HasLink (Header sym a :> sub) where
345− type MkLink (Header sym a :> sub) = MkLink sub
346− toLink _ = toLink (Proxy :: Proxy sub)
345+ type MkLink (Header sym a :> sub) = MkLink sub
346+ toLink _ = toLink (Proxy :: Proxy sub)
347347
348348-- Verb (terminal) instances
349349instance HasLink (Get y r) where