@@ -53,6 +53,7 @@ instance Modifiable Inlines where
53 (Strikeout _) -> Modifier strikeout
53 (Strikeout _) -> Modifier strikeout
54 (Superscript _) -> Modifier superscript
54 (Superscript _) -> Modifier superscript
55 (Subscript _) -> Modifier subscript
55 (Subscript _) -> Modifier subscript
56+ (Link attr _ tgt) -> Modifier $ linkWith attr (fst tgt) (snd tgt)
56 (Span attr _) -> AttrModifier spanWith attr
57 (Span attr _) -> AttrModifier spanWith attr
57 _ -> NullModifier
58 _ -> NullModifier
58 _ -> NullModifier
59 _ -> NullModifier
@@ -65,6 +66,7 @@ instance Modifiable Inlines where
65 (Strikeout lst) -> fromList lst
66 (Strikeout lst) -> fromList lst
66 (Superscript lst) -> fromList lst
67 (Superscript lst) -> fromList lst
67 (Subscript lst) -> fromList lst
68 (Subscript lst) -> fromList lst
69+ (Link _ lst _) -> fromList lst
68 (Span _ lst) -> fromList lst
70 (Span _ lst) -> fromList lst