@@ -70,7 +70,6 @@ addPragmaCmd _lf _ide (AddPragmaParams uri pragmaName) = do
70
70
return (Right Null , Just (WorkspaceApplyEdit , ApplyWorkspaceEditParams res))
71
71
72
72
-- ---------------------------------------------------------------------
73
- -- ms_hspp_opts
74
73
-- | Offer to add a missing Language Pragma to the top of a file.
75
74
-- Pragmas are defined by a curated list of known pragmas, see 'possiblePragmas'.
76
75
codeActionProvider :: CodeActionProvider
@@ -97,7 +96,7 @@ codeActionProvider _ state plId docId _ (J.CodeActionContext (J.List diags) _mon
97
96
return $ codeAction cmd
98
97
genPragma mDynflags target
99
98
| 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
101
100
disabled <- [ e | Just e <- T. stripPrefix " Off " . T. pack . prettyPrint <$> extensions dynFlags]
102
101
= [ r | r <- findPragma target, r `notElem` disabled]
103
102
| otherwise = []
@@ -114,7 +113,7 @@ findPragma str = concatMap check possiblePragmas
114
113
-- ---------------------------------------------------------------------
115
114
116
115
-- | 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
118
117
possiblePragmas :: [T. Text ]
119
118
possiblePragmas = [name | FlagSpec {flagSpecName = T. pack -> name} <- xFlags, " Strict" /= name]
120
119
0 commit comments