@@ -144,11 +144,11 @@ inlineToNodes (Strikeout xs) =
144 ((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++
144 ((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++
145 [node (INLINE_HTML (T.pack "</s>")) []]) ++ )
145 [node (INLINE_HTML (T.pack "</s>")) []]) ++ )
146inlineToNodes (Superscript xs) =
146inlineToNodes (Superscript xs) =
147− ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
148− [node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
149−inlineToNodes (Subscript xs) =
150 ((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++
147 ((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++
151 [node (INLINE_HTML (T.pack "</sup>")) []]) ++ )
148 [node (INLINE_HTML (T.pack "</sup>")) []]) ++ )
149+inlineToNodes (Subscript xs) =
150+ ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
151+ [node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
152inlineToNodes (SmallCaps xs) =
152inlineToNodes (SmallCaps xs) =
153 ((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) []
153 ((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) []
154 : inlinesToNodes xs ++
154 : inlinesToNodes xs ++