15 lines
231 B
Haskell
15 lines
231 B
Haskell
module Main where
|
|
|
|
import MiniTreeRollouts.Plan
|
|
( renderPaths
|
|
, renderPlan
|
|
, samplePlan
|
|
)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "plan:"
|
|
putStrLn (renderPlan samplePlan)
|
|
putStrLn "paths:"
|
|
putStr (renderPaths samplePlan)
|