Skip to content

Commit 313916a

Browse files
committed
Update comments
1 parent 0405631 commit 313916a

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

plugins/default/src/Ide/Plugin/Pragmas.hs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -70,7 +70,6 @@ addPragmaCmd _lf _ide (AddPragmaParams uri pragmaName) = do
7070
return (Right Null, Just (WorkspaceApplyEdit, ApplyWorkspaceEditParams res))
7171

7272
-- ---------------------------------------------------------------------
73-
-- ms_hspp_opts
7473
-- | Offer to add a missing Language Pragma to the top of a file.
7574
-- Pragmas are defined by a curated list of known pragmas, see 'possiblePragmas'.
7675
codeActionProvider :: CodeActionProvider
@@ -97,7 +96,7 @@ codeActionProvider _ state plId docId _ (J.CodeActionContext (J.List diags) _mon
9796
return $ codeAction cmd
9897
genPragma mDynflags target
9998
| Just dynFlags <- mDynflags,
100-
-- GHC does not export 'OnOff', so we have to convert it into string
99+
-- GHC does not export 'OnOff', so we have to view it as string
101100
disabled <- [ e | Just e <- T.stripPrefix "Off " . T.pack . prettyPrint <$> extensions dynFlags]
102101
= [ r | r <- findPragma target, r `notElem` disabled]
103102
| otherwise = []
@@ -114,7 +113,7 @@ findPragma str = concatMap check possiblePragmas
114113
-- ---------------------------------------------------------------------
115114

116115
-- | Possible Pragma names.
117-
-- See discussion at https://github.com/digital-asset/ghcide/pull/638
116+
-- See discussion at https://github.com/haskell/ghcide/pull/638
118117
possiblePragmas :: [T.Text]
119118
possiblePragmas = [name | FlagSpec{flagSpecName = T.pack -> name} <- xFlags, "Strict" /= name]
120119

0 commit comments

Comments
 (0)