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