@@ -194,8 +194,10 @@ fixInlineIRs s (Span as v) =
194 Span (fixAttrs s as) v
194 Span (fixAttrs s as) v
195fixInlineIRs s (Code as code) =
195fixInlineIRs s (Code as code) =
196 Code (fixAttrs s as) code
196 Code (fixAttrs s as) code
197−fixInlineIRs s (Link attr t ('#':url, tit)) =
197+fixInlineIRs s (Link as is ('#':url, tit)) =
198− Link attr t (addHash s 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
199fixInlineIRs _ v = v
201fixInlineIRs _ v = v
201prependHash :: [String] -> Inline -> Inline
203prependHash :: [String] -> Inline -> Inline