@@ -209,7 +209,7 @@ getModulesNames fields = map swap $ groupSort rawModuleTargetPairs
209
209
-- | Trims a given cabal AST leaving only targets and their
210
210
-- @exposed-modules@ and @other-modules@ sections.
211
211
--
212
- -- For examle :
212
+ -- For example :
213
213
--
214
214
-- * Given a cabal file like this:
215
215
--
@@ -218,26 +218,26 @@ getModulesNames fields = map swap $ groupSort rawModuleTargetPairs
218
218
-- > hs-source-dirs: source/directory
219
219
-- > ...
220
220
-- > exposed-modules:
221
- -- > Importaint .Exposed.Module
221
+ -- > Important .Exposed.Module
222
222
-- > other-modules:
223
- -- > Importaint .Other.Module
223
+ -- > Important .Other.Module
224
224
-- >
225
225
-- > test-suite tests
226
226
-- > type: type
227
227
-- > build-tool-depends: tool
228
228
-- > other-modules:
229
- -- > Importaint .Other.Module
229
+ -- > Important .Other.Module
230
230
--
231
231
-- * @getSectionsWithModules@ gives output:
232
232
--
233
233
-- > library
234
234
-- > exposed-modules:
235
- -- > Importaint .Exposed.Module
235
+ -- > Important .Exposed.Module
236
236
-- > other-modules:
237
- -- > Importaint .Other.Module
237
+ -- > Important .Other.Module
238
238
-- > test-suite tests
239
239
-- > other-modules:
240
- -- > Importaint .Other.Module
240
+ -- > Important .Other.Module
241
241
getSectionsWithModules :: [Syntax. Field any ] -> [Syntax. Field any ]
242
242
getSectionsWithModules fields = concatMap go fields
243
243
where
@@ -295,7 +295,7 @@ getNameEndPosition (Syntax.Name (Syntax.Position row col) byteString) = Syntax.P
295
295
getFieldLineEndPosition :: Syntax. FieldLine Syntax. Position -> Syntax. Position
296
296
getFieldLineEndPosition (Syntax. FieldLine (Syntax. Position row col) byteString) = Syntax. Position row (col + BS. length byteString)
297
297
298
- -- | Returns a LSP compatible range for a provided field
298
+ -- | Returns an LSP compatible range for a provided field
299
299
getFieldLSPRange :: Syntax. Field Syntax. Position -> LSP. Range
300
300
getFieldLSPRange field = LSP. Range startLSPPos endLSPPos
301
301
where
0 commit comments