{-# OPTIONS_GHC -O2 -fglasgow-exts #-}

module Main where

import Lighttpd.Conf
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = maybe
        (print "error")
        (putStrLn . render . ppr)
      . parseConf =<< B.getContents