pTrigger :: Trigger -> Doc
ppTrigger Trigger { triggerName = name
                  , triggerArgs = args } 
  =
  hcat $
    [ text "void" <+> text name <+> 
           text "(" <> ppPars args <> text ")"
    , text "{"
    , nest 2 $ ppPrintf name args <> text ";"
    , text "}"
    ]

ppTrigger :: Trigger -> Doc
ppTrigger Trigger { triggerName = name
                  , triggerArgs = args } 
  =
  hcat $
    [ text "void" <+> text name <+> 
           text "(" <> ppPars args <> text ")"
    , text "{"
    , nest 2 $ ppPrintf name args <> text ";"
    , text "}"
    ]
ppTrigger Trigger { triggerName = name
                  , triggerArgs = args } 
  =
  hcat $
    [ text "void" <+> text name <+> 
           text "(" <> ppPars args <> text ")"
    , text "{"
    , nest 2 $ ppPrintf name args <> text ";"
    , text "}"
    ]