indent :: PP a -> PP a
indent (PP p) = PP $ \cfg indentlvl ns b ->
  if useIndentation (ppOpts cfg)
    then p cfg (indentlvl+1) ns b
    else p cfg 0 ns b
indent :: PP a -> PP a
indent (PP p) = PP $ \cfg indentlvl ns b ->
  if useIndentation (ppOpts cfg)
    then p cfg (indentlvl+1) ns b
    else p cfg 0 ns b
indent (PP p) = PP $ \cfg indentlvl ns b ->
  if useIndentation (ppOpts cfg)
    then p cfg (indentlvl+1) ns b
    else p cfg 0 ns b