@@ -161,17 +161,8 @@ ideTryIOException fp act =
161type FileDiagnostics = (Uri, [Diagnostic])
161type FileDiagnostics = (Uri, [Diagnostic])
163prettyRange :: Range -> Doc SyntaxClass
163prettyRange :: Range -> Doc SyntaxClass
164−prettyRange Range{..} =
164+prettyRange Range{..} = f _start <> "-" <> f _end
165− slabel_ "Range" $ vcat
166− [ slabel_ "Start:" $ prettyPosition _start
167− , slabel_ "End: " $ prettyPosition _end
170−prettyPosition :: Position -> Doc SyntaxClass
171−prettyPosition Position{..} = slabel_ "Position" $ vcat
172− [ slabel_ "Line:" $ pretty _line
173− , slabel_ "Character:" $ pretty _character
165+ where f Position{..} = pretty (_line+1) <> colon <> pretty _character
176stringParagraphs :: T.Text -> Doc a
167stringParagraphs :: T.Text -> Doc a
177stringParagraphs = vcat . map (fillSep . map pretty . T.words) . T.lines
168stringParagraphs = vcat . map (fillSep . map pretty . T.words) . T.lines