700f7a1 · typeable/pandoc

249 if ignorable k

250 then return ()

251 else do

252− v' <- yamlToMeta v

252+ v' <- yamlToMetaValue v

253 let k' = T.unpack k

254 updateState $ \st -> st{ stateMeta' =

255 do m <- stateMeta' st

309 then Just False

310 else Nothing

311

312−yamlToMeta :: PandocMonad m

312+yamlToMetaValue :: PandocMonad m

313− => YAML.Node -> MarkdownParser m (F MetaValue)

313+ => YAML.Node -> MarkdownParser m (F MetaValue)

314−yamlToMeta (YAML.Scalar x) =

314+yamlToMetaValue (YAML.Scalar x) =

315 case x of

316 YAML.SStr t -> toMetaValue t

317 YAML.SBool b -> return $ return $ MetaBool b

322 Just b -> return $ return $ MetaBool b

323 Nothing -> toMetaValue t

324 YAML.SNull -> return $ return $ MetaString ""

325−yamlToMeta (YAML.Sequence _ xs) = do

325+yamlToMetaValue (YAML.Sequence _ xs) = do

326− xs' <- mapM yamlToMeta xs

326+ xs' <- mapM yamlToMetaValue xs

327 return $ do

328 xs'' <- sequence xs'

329 return $ B.toMetaValue xs''

330−yamlToMeta (YAML.Mapping _ o) =

330+yamlToMetaValue (YAML.Mapping _ o) =

331 foldM (\m (key, v) -> do

332 k <- nodeToKey key

333 if ignorable k

334 then return m

335 else do

336− v' <- yamlToMeta v

336+ v' <- yamlToMetaValue v

337 return $ do

338 MetaMap m' <- m

339 v'' <- v'

340 return (MetaMap $ M.insert (T.unpack k) v'' m'))

341 (return $ MetaMap M.empty)

342 (M.toList o)

343−yamlToMeta _ = return $ return $ MetaString ""

343+yamlToMetaValue _ = return $ return $ MetaString ""

344

345stopLine :: PandocMonad m => MarkdownParser m ()

346stopLine = try $ (string "---" <|> string "...") >> blankline >> return ()