diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-06-07 14:33:13 +0100 |
---|---|---|
committer | Ben Gamari <ben@well-typed.com> | 2019-06-08 13:38:15 -0400 |
commit | 709290b01c3c63137d863d6fdd97dabdfe47eb29 (patch) | |
tree | f481fb176d0e8f31cf802ff4211ea2e660f1f1f5 /compiler/main | |
parent | c392f987de174ae04c6c7c47145dfe5db6427615 (diff) | |
download | haskell-709290b01c3c63137d863d6fdd97dabdfe47eb29.tar.gz |
Remove trailing whitespace
[skip ci]
This should really be caught by the linters! (#16711)
Diffstat (limited to 'compiler/main')
-rw-r--r-- | compiler/main/HscTypes.hs | 2 | ||||
-rw-r--r-- | compiler/main/Packages.hs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/compiler/main/HscTypes.hs b/compiler/main/HscTypes.hs index dba39c97f0..eb9877b096 100644 --- a/compiler/main/HscTypes.hs +++ b/compiler/main/HscTypes.hs @@ -443,7 +443,7 @@ data HscEnv -- time it is needed. , hsc_dynLinker :: DynLinker - -- ^ dynamic linker. + -- ^ dynamic linker. } diff --git a/compiler/main/Packages.hs b/compiler/main/Packages.hs index 2275267d14..cdb4f9ba71 100644 --- a/compiler/main/Packages.hs +++ b/compiler/main/Packages.hs @@ -1470,8 +1470,8 @@ mkPackageState dflags dbs preload0 = do _ -> unit' addIfMorePreferable m unit = addToUDFM_C preferLater m (fsPackageName unit) unit -- This is the set of maximally preferable packages. In fact, it is a set of - -- most preferable *units* keyed by package name, which act as stand-ins in - -- for "a package in a database". We use units here because we don't have + -- most preferable *units* keyed by package name, which act as stand-ins in + -- for "a package in a database". We use units here because we don't have -- "a package in a database" as a type currently. mostPreferablePackageReps = if gopt Opt_HideAllPackages dflags then emptyUDFM @@ -1481,7 +1481,7 @@ mkPackageState dflags dbs preload0 = do -- with the most preferable unit for package. Being equi-preferable means that -- they must be in the same database, with the same version, and the same pacakge name. -- - -- We must take care to consider all these units and not just the most + -- We must take care to consider all these units and not just the most -- preferable one, otherwise we can end up with problems like #16228. mostPreferable u = case lookupUDFM mostPreferablePackageReps (fsPackageName u) of |