Closed
Description
module Test where
mkDiag :: DynFlags -> T.Text -> ErrMsg -> Maybe FileDiagnostic
mkDiag dflags src e =
case toDSeverity $ errMsgSeverity e of
Nothing -> Nothing
Just bSeverity ->
Just $ (toNormalizedFilePath $ srcSpanToFilename $ errMsgSpan e,)
Diagnostic
{ _range = srcSpanToRange $ errMsgSpan e
, _severity = Just bSeverity
, _source = Just src
, _message = T.pack $ Out.showSDoc dflags (ErrUtils.pprLocErrMsg e)
, _code = Nothing
, _relatedInformation = Nothing
}