{--------------------------------------------------------------------------
  Pretty print helpers
--------------------------------------------------------------------------}
ppRange :: Bool -> ColorScheme -> Range -> Doc
ppRange endToo colors r
  = color (colorRange colors) (text (showRange endToo r))
ppRange :: Bool -> ColorScheme -> Range -> Doc
ppRange endToo colors r
  = color (colorRange colors) (text (showRange endToo r))
ppRange endToo colors r
  = color (colorRange colors) (text (showRange endToo r))