Skip to content

Commit b6e288e

Browse files
committed
Add space after comma when exporting a name
1 parent 7518a3a commit b6e288e

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ghcide/src/Development/IDE/Plugin/CodeAction.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -541,7 +541,7 @@ suggestExportUnusedTopBinding srcOpt ParsedModule{pm_parsed_source = L _ HsModul
541541
$ hsmodDecls
542542
, Just pos <- fmap _end . getLocatedRange =<< hsmodExports
543543
, Just needComma <- needsComma source <$> hsmodExports
544-
, let exportName = (if needComma then "," else "") <> printExport exportType name
544+
, let exportName = (if needComma then ", " else "") <> printExport exportType name
545545
insertPos = pos {_character = pred $ _character pos}
546546
= [("Export ‘" <> name <> "", TextEdit (Range insertPos insertPos) exportName)]
547547
| otherwise = []

0 commit comments

Comments
 (0)