@@ -144,6 +144,10 @@ runElemToString (Tab) = ['\t']
144runElemsToString :: [RunElem] -> String
144runElemsToString :: [RunElem] -> String
145runElemsToString = concatMap runElemToString
145runElemsToString = concatMap runElemToString
147+--- We use this instead of the more general
148+--- Text.Pandoc.Shared.normalize for reasons of efficiency. For
149+--- whatever reason, `normalize` makes a run take almost twice as
150+--- long. (It does more, but this does what we need)
147strNormalize :: [Inline] -> [Inline]
151strNormalize :: [Inline] -> [Inline]
148strNormalize [] = []
152strNormalize [] = []
149strNormalize (Str "" : ils) = strNormalize ils
153strNormalize (Str "" : ils) = strNormalize ils