yuuko-2010.11.5: src/Main.hs

module Main where

import Text.HTML.Yuuko
import System

main :: IO ()
main = do
  args <- getArgs
  case args of
    [] -> putStrLn "\n  usage: echo '<div>hi</div>' | yuuko //div\n"
    expr:_ -> interact $ unlines . (yuuko expr)