File tree Expand file tree Collapse file tree 3 files changed +6
-4
lines changed
session-loader/Development/IDE/Session Expand file tree Collapse file tree 3 files changed +6
-4
lines changed Original file line number Diff line number Diff line change @@ -8,7 +8,7 @@ packages:
8
8
./hls-test-utils
9
9
10
10
11
- index-state : 2025-04-19T07:34 :07Z
11
+ index-state : 2025-05-06T13:26 :29Z
12
12
13
13
tests : True
14
14
test-show-details : direct
Original file line number Diff line number Diff line change @@ -73,7 +73,7 @@ library
73
73
, Glob
74
74
, haddock-library >= 1.8 && < 1.12
75
75
, hashable
76
- , hie-bios ^>= 0.14 .0
76
+ , hie-bios ^>= 0.15 .0
77
77
, hie-compat ^>= 0.3.0.0
78
78
, hiedb ^>= 0.6.0.2
79
79
, hls-graph == 2.10.0.0
Original file line number Diff line number Diff line change @@ -28,15 +28,17 @@ data CradleErrorDetails =
28
28
Depicts the cradle error in a user-friendly way.
29
29
-}
30
30
renderCradleError :: CradleError -> Cradle a -> NormalizedFilePath -> FileDiagnostic
31
- renderCradleError ( CradleError deps _ec ms) cradle nfp =
31
+ renderCradleError cradleError cradle nfp =
32
32
let noDetails =
33
33
ideErrorWithSource (Just " cradle" ) (Just DiagnosticSeverity_Error ) nfp (T. unlines $ map T. pack userFriendlyMessage) Nothing
34
34
in
35
35
if HieBios. isCabalCradle cradle
36
36
then noDetails & fdLspDiagnosticL %~ \ diag -> diag{_data_ = Just $ Aeson. toJSON CradleErrorDetails {cabalProjectFiles= absDeps}}
37
37
else noDetails
38
38
where
39
- absDeps = fmap (cradleRootDir cradle </> ) deps
39
+ ms = cradleErrorStderr cradleError
40
+
41
+ absDeps = fmap (cradleRootDir cradle </> ) (cradleErrorDependencies cradleError)
40
42
userFriendlyMessage :: [String ]
41
43
userFriendlyMessage
42
44
| HieBios. isCabalCradle cradle = fromMaybe ms $ fileMissingMessage <|> mkUnknownModuleMessage
You can’t perform that action at this time.
0 commit comments