yuuko-2009.10.23.2: 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 $ concatMap (++ "\n") . (yuuko expr)