@@ -43,12 +43,10 @@ import Ide.Types (PluginDescriptor (..),
43
43
defaultPluginDescriptor )
44
44
import qualified Language.LSP.Types as LSP
45
45
import Stan.Analysis (Analysis (.. ), runAnalysis )
46
- import Stan.Category (prettyShowCategory )
47
46
import Stan.Core.Id (Id (.. ))
48
47
import Stan.Inspection (Inspection (.. ))
49
48
import Stan.Inspection.All (inspectionsIds , inspectionsMap )
50
49
import Stan.Observation (Observation (.. ))
51
- import Stan.Severity (prettyShowSeverity )
52
50
53
51
descriptor :: Recorder (WithPriority Log ) -> PluginId -> PluginDescriptor IdeState
54
52
descriptor recorder plId = (defaultPluginDescriptor plId) {pluginRules = rules recorder}
@@ -94,15 +92,16 @@ rules recorder = do
94
92
let
95
93
-- Looking similar to Stan CLI output
96
94
-- We do not use `prettyShowInspection` cuz Id is redundant here
95
+ -- `prettyShowSeverity` and `prettyShowCategory` would contain color
96
+ -- codes and are replaced, too
97
97
message :: T. Text
98
98
message =
99
99
T. unlines $
100
100
[ " ✲ Name: " <> inspectionName inspection,
101
101
" ✲ Description: " <> inspectionDescription inspection,
102
- " ✲ Severity: " <> (prettyShowSeverity $
103
- inspectionSeverity inspection),
102
+ " ✲ Severity: " <> (show $ inspectionSeverity inspection),
104
103
" ✲ Category: " <> T. intercalate " "
105
- (map prettyShowCategory $ toList $ inspectionCategory inspection),
104
+ (map (( " # " <> ) . unCategory) $ toList $ inspectionCategory inspection),
106
105
" Possible solutions:"
107
106
]
108
107
++ map (" - " <> ) (inspectionSolution inspection)
0 commit comments