fancier laziness test.

YAML.hs

@@ -1,7 +1,7 @@
 module YAML ( Node(..), YAML(..),
               -- buildTree, unEscape, tokenize, tokenizeBytes,
               getScalar, getMapping, getSequence,
-              getMappingValues, getMappingList,
+              getMappingValues, getMappingList, makeTree, makeTokens,
               showYaml, readYaml, parseYaml, parseYamlList ) where
 
 import YAML.Reference ( Code(..), tokenize ) -- , tokenizeBytes )
@@ -246,6 +246,9 @@ getMeta [] = ""
 parseYaml :: String -> [Node]
 parseYaml = parseStream . buildTree . tokenize "-"
 
+makeTokens = tokenize "-"
+makeTree = buildTree . tokenize "-"
+
 parseYamlList :: String -> [Node]
 parseYamlList x = case parseYaml x of
                     [List ns] -> ns

yamltest.hs

@@ -1,13 +1,19 @@
 module Main where
 
-import YAML ( parseYamlList )
+import YAML ( parseYamlList, parseYaml, makeTree, makeTokens )
 
 main :: IO ()
-main = do let partialstring = unlines ["- foo","- bar",undefined]
+main = do let partialstring = unlines ["- foo","- bar" --, undefined
+                                      ]
           putStrLn "The partialstring has two defined elements:"
           print $ take 2 $ lines partialstring
+          putStrLn "makeTokens should find those two elements:"
+          mapM_ print $ makeTokens partialstring
+          putStrLn "makeTree should find those two elements:"
+          mapM_ print $ makeTree partialstring
           putStrLn "parseYamlList should find those two elements:"
-          print $ take 2 $ parseYamlList partialstring
+          mapM_ print $ parseYaml partialstring
+          print $ take 1 $ parseYamlList partialstring
           putStrLn "You may now play with parseYamlList interactively:"
           x <- parseYamlList `fmap` getContents
           mapM_ print x