File tree 2 files changed +17
-1
lines changed
src/Development/IDE/Types
2 files changed +17
-1
lines changed Original file line number Diff line number Diff line change @@ -58,7 +58,7 @@ mkIdentInfos (AvailTC parent (n:nn) flds)
58
58
] ++
59
59
[ IdentInfo (pack (prettyPrint n)) (pack (printName n)) Nothing (isDataConName n)]
60
60
where
61
- parentP = pack $ prettyPrint parent
61
+ parentP = pack $ printName parent
62
62
63
63
mkIdentInfos (AvailTC _ nn flds)
64
64
= [ IdentInfo (pack (prettyPrint n)) (pack (printName n)) Nothing (isDataConName n)
Original file line number Diff line number Diff line change @@ -1300,6 +1300,22 @@ extendImportTests = testGroup "extend import actions"
1300
1300
, " import ModuleA (bar)"
1301
1301
, " foo = bar"
1302
1302
])
1303
+ , testSession " extend import list with multiple choices" $ template
1304
+ []
1305
+ (" ModuleA.hs" , T. unlines
1306
+ [ " module ModuleA where"
1307
+ , " import Data.Type.Equality ((:~:))"
1308
+ , " x :: (:~:) [] []"
1309
+ , " x = Refl"
1310
+ ])
1311
+ (Range (Position 3 17 ) (Position 3 18 ))
1312
+ [" Add (:~:)(Refl) to the import list of Data.Type.Equality" ]
1313
+ (T. unlines
1314
+ [ " module ModuleA where"
1315
+ , " import Data.Type.Equality ((:~:)(Refl))"
1316
+ , " x :: (:~:) [] []"
1317
+ , " x = Refl"
1318
+ ])
1303
1319
]
1304
1320
where
1305
1321
codeActionTitle CodeAction {_title= x} = x
You can’t perform that action at this time.
0 commit comments