Skip to content
This repository was archived by the owner on Oct 7, 2020. It is now read-only.

Commit a451a5c

Browse files
committed
Improve documentation
1 parent 656daff commit a451a5c

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

src/Haskell/Ide/Engine/Plugin/Pragmas.hs

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -60,8 +60,6 @@ addPragmaCmd = CmdSync $ \(AddPragmaParams uri pragmaName) -> do
6060

6161
-- | Offer to add a missing Language Pragma to the top of a file.
6262
-- Pragmas are defined by a curated list of known pragmas, see 'possiblePragmas'.
63-
-- May also offer to add unknown pragmas, if the pragma is a subexpression of
64-
-- an existing plugin.
6563
codeActionProvider :: CodeActionProvider
6664
codeActionProvider plId docId _ (J.CodeActionContext (J.List diags) _monly) = do
6765
cmds <- mapM mkCommand pragmas
@@ -83,15 +81,15 @@ codeActionProvider plId docId _ (J.CodeActionContext (J.List diags) _monly) = do
8381

8482
-- ---------------------------------------------------------------------
8583

86-
-- | Find all Pragmas that have the search term as infix.
84+
-- | Find all Pragmas are an infix of the search term.
8785
findPragma :: T.Text -> [T.Text]
8886
findPragma str = concatMap check possiblePragmas
8987
where
9088
check p = [p | T.isInfixOf p str]
9189

9290
-- ---------------------------------------------------------------------
9391

94-
-- | Possible Pragama names.
92+
-- | Possible Pragma names.
9593
-- Is non-exhaustive, and may be extended.
9694
possiblePragmas :: [T.Text]
9795
possiblePragmas =

0 commit comments

Comments
 (0)