{-# LANGUAGE TemplateHaskell #-} import Language.Haskell.Meta import Language.Haskell.TH () import Lighttpd.Conf.Syntax main :: IO () main = do --putStrLn (deriveLiftPretty ''Name ["Lighttpd.Conf.Syntax"]) --putStrLn (deriveLiftPretty ''QName ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Val ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''ArrayElem ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Enabled ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Exp ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''CondElse ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Include ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Cond ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Op ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Pat ["Lighttpd.Conf.Syntax"]) putStrLn (deriveLiftPretty ''Field ["Lighttpd.Conf.Syntax"])