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)
|