@@ -462,7 +462,7 @@ transformInlines = insertBS .
462462 okBeforeComplex Space = True
463463 okBeforeComplex SoftBreak = True
464464 okBeforeComplex LineBreak = True
465− okBeforeComplex (Str (T.uncons -> Just (c,_)))
465+ okBeforeComplex (Str (T.unsnoc -> Just (_,c)))
466466 = isSpace c || c `elemText` "-:/'\"<([{–—"
467467 okBeforeComplex _ = False
468468 isComplex :: Inline -> Bool
@@ -491,7 +491,7 @@ flatten outer
491491 combineAll = foldl combine []
492492
493493 combine :: [Inline] -> Inline -> [Inline]
494− combine f i =
494+ combine f i =
495495 case (outer, i) of
496496 -- quotes are not rendered using RST inlines, so we can keep
497497 -- them and they will be readable and parsable