Skip to content

Incorrect remove $ hint #673

Closed
Closed
@neil-da

Description

@neil-da
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
        }

Metadata

Metadata

Assignees

No one assigned

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions