@@ -248,9 +248,9 @@ yamlTitleBlock = try $ do
248 addWarning (Just pos) "YAML header is not an object"
248 addWarning (Just pos) "YAML header is not an object"
249 return $ return id
249 return $ return id
251−-- ignore fields starting with _
251+-- ignore fields ending with _
252ignorable :: Text -> Bool
252ignorable :: Text -> Bool
253−ignorable t = (T.pack "_") `T.isPrefixOf` t
253+ignorable t = (T.pack "_") `T.isSuffixOf` t
255toMetaValue :: ReaderOptions -> Text -> MetaValue
255toMetaValue :: ReaderOptions -> Text -> MetaValue
256toMetaValue opts x =
256toMetaValue opts x =