Skip to content

Commit 5fa456d

Browse files
jetjinserfendor
andauthored
Apply suggestions from code review
Co-authored-by: fendor <fendor@users.noreply.github.com>
1 parent e544187 commit 5fa456d

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

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

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -50,8 +50,8 @@ import qualified Development.IDE.Core.Shake as Shake
5050
import Development.IDE.GHC.Compat
5151
import Development.IDE.GHC.Util (printName)
5252
import Development.IDE.Graph.Classes
53-
import Development.IDE.Types.Location (Position (Position, _character, _line),
54-
Range (Range, _end, _start))
53+
import Development.IDE.Types.Location (Position (..),
54+
Range (..))
5555
import GHC.Exts (IsString)
5656
import GHC.Generics (Generic)
5757
import GHC.Hs (realSrcSpan)
@@ -378,10 +378,10 @@ pprPatSynTypeWithoutForalls p = pprPatSynType pWithoutTypeVariables
378378
-- | A binding expression with its id and location.
379379
data WhereBinding = WhereBinding
380380
{ bindingId :: Id
381-
-- ^ Each WhereBinding represents a id in binding expression.
381+
-- ^ Each WhereBinding represents an id in binding expression.
382382
, bindingLoc :: SrcSpan
383-
-- ^ Location for a individual binding in a pattern.
384-
-- Here we use the this and offset to render the type signature at the proper place.
383+
-- ^ Location for an individual binding in a pattern.
384+
-- Here we use the 'bindingLoc' and offset to render the type signature at the proper place.
385385
, offset :: Int
386386
-- ^ Column offset between whole binding and individual binding in a pattern.
387387
--
@@ -390,10 +390,10 @@ data WhereBinding = WhereBinding
390390
-- - `b`: WhereBinding id_b loc_b 4
391391
}
392392

393-
-- | Existed bindings in a where clause.
393+
-- | Existing bindings in a where clause.
394394
data WhereBindings = WhereBindings
395395
{ bindings :: [WhereBinding]
396-
, existedSigNames :: [Name]
396+
, existingSigNames :: [Name]
397397
-- ^ Names of existing signatures.
398398
-- It is used to hide type lens for existing signatures.
399399
--

0 commit comments

Comments
 (0)