@@ -194,8 +194,10 @@ fixInlineIRs s (Span as v) =
194194 Span (fixAttrs s as) v
195195fixInlineIRs s (Code as code) =
196196 Code (fixAttrs s as) code
197−fixInlineIRs s (Link attr t ('#':url, tit)) =
198− Link attr t (addHash s url, tit)
197+fixInlineIRs s (Link as is ('#':url, tit)) =
198+ Link (fixAttrs s as) is (addHash s url, tit)
199+fixInlineIRs s (Link as is t) =
200+ Link (fixAttrs s as) is t
199201fixInlineIRs _ v = v
200202
201203prependHash :: [String] -> Inline -> Inline