4 import Edu_Berkeley_Sbp_Haskell_SBP
9 import qualified Text.PrettyPrint.Leijen as PP
11 process :: String -> IO String
12 process file = do t <- parseFile file
15 $ ((fromTree $ coalesceFlatHeadlessNodes t) :: Doc)
17 foreign import jvm safe "HaskellHelper.putBack" putBack :: JString -> IO ()
19 main' file verbosity =
20 do t <- parseFile file
23 putStrLn $ (PP.displayS
24 $ PP.renderPretty (0.9) 80
25 $ prettyPrintTree (coalesceFlatHeadlessNodes t))
29 doc <- return ((fromTree $ coalesceFlatHeadlessNodes t) :: Doc)
32 putStrLn $ (PP.displayS
33 $ PP.renderPretty (0.9) 80
38 js <- packJString $ toHtml doc