ppIdentifier :: Identifier -> PP ()
ppIdentifier i =
  case i of
    Identifier text -> write text

--------------------------------------------------------------------------------
-- Utilities for the pretty printer

-- | Intercalate monadic action.
ppIdentifier :: Identifier -> PP ()
ppIdentifier i =
  case i of
    Identifier text -> write text

--------------------------------------------------------------------------------
-- Utilities for the pretty printer

-- | Intercalate monadic action.
ppIdentifier i =
  case i of
    Identifier text -> write text

--------------------------------------------------------------------------------
-- Utilities for the pretty printer

-- | Intercalate monadic action.