@@ -192,12 +192,7 @@ bodyPartsToMeta bps = do
192192 return $ Meta mp'
193193
194194fixAuthors :: MetaValue -> MetaValue
195−fixAuthors (MetaBlocks blks) =
196− MetaList $ map g $ filter f blks
197− where f (Para _) = True
198− f _ = False
199− g (Para ils) = MetaInlines ils
200− g _ = MetaInlines []
195+fixAuthors (MetaBlocks blks) = MetaList [MetaInlines ils | Para ils <- blks]
201196fixAuthors mv = mv
202197
203198isInheritedFromStyles :: (Eq (StyleName s), HasStyleName s, HasParentStyle s) => [StyleName s] -> s -> Bool