typos

Author: Eric Lindblad

exes/ImportClient.hs

@@ -868,7 +868,7 @@ isErrNotFound _                             = False
 
 -- | We can do http digest auth, however currently the Network.Browser module
 -- does not cache the auth info so it has to re-auth for every single request.
--- So instead here we just make it pre-emptively supply basic auth info.
+-- So instead here we just make it preemptively supply basic auth info.
 -- We assume this is fine since we're probably working with localhost anyway.
 --
 setAuthorityFromURI :: URI -> HttpSession ()

src/Data/IntTrie.hs

@@ -137,7 +137,7 @@ test1 = example2 == mkTrie example1
 #endif
 
 -- Each node has a size and a sequence of keys followed by an equal length
--- sequnce of corresponding entries. Since we're going to flatten this into
+-- sequence of corresponding entries. Since we're going to flatten this into
 -- a single array then we will need to replace the trie structure with pointers
 -- represented as array offsets.
 

src/Distribution/Client/Mirror/Repo.hs

@@ -197,7 +197,7 @@ packageExists targetRepo pkgInfo =
 -- | Finalize the mirror
 --
 -- That is, now that the packages have been uploaded to the target repo,
--- update the index and securify files (if applicable). This is only necessary
+-- update the index and security files (if applicable). This is only necessary
 -- "dumb" target repositories.
 finalizeMirror :: SourceRepo -> TargetRepo -> MirrorSession ()
 finalizeMirror _ TargetHackage2{} =

src/Distribution/Server.hs

@@ -246,7 +246,7 @@ shutdown :: Server -> IO ()
 shutdown server =
   Features.shutdownAllFeatures (serverFeatures server)
 
---TODO: stop accepting incomming connections,
+--TODO: stop accepting incoming connections,
 -- wait for connections to be processed.
 
 -- | Write out a checkpoint of the server state. This makes recovery quicker

src/Distribution/Server/Features/Core/State.hs

@@ -255,7 +255,7 @@ migrateAddUpdateLog users = do
 --   pre-existing 'preferred-versions' entries from the V1 'PackagesState' log
 --   (since that's the only place we keep track of their history for now)
 -- * We do this here rather than in the security feature so that this happens
---   before we set up the hook to update the hackage on package changes
+--   before we set up the hook to update the Hackage on package changes
 --   (otherwise the index would continuously be updated during this process,
 --   which would be far too expensive).
 -- * Moreover, this allows us to order the index such that the TUF files are

src/Distribution/Server/Features/Distro.hs

@@ -240,7 +240,7 @@ maintainerGroupDescription dname = nullDescription
   where str = display dname
 
 -- TODO: This calls parseCSV rather that importCSV -- not sure if that
--- matters (in particular, importCSV chops off the last, extranenous,
+-- matters (in particular, importCSV chops off the last, extraneous,
 -- null entry that parseCSV adds)
 lookCSVFile :: (CSVFile -> ServerPartE Response) -> ServerPartE Response
 lookCSVFile func = do

src/Distribution/Server/Features/Distro/Distributions.hs

@@ -82,7 +82,7 @@ distroPackageStatus distro package dv = Map.lookup distro =<< Map.lookup package
 
 --- Removing
 
--- | Remove a distirbution from the list of known distirbutions
+-- | Remove a distribution from the list of known distributions
 removeDistro :: DistroName -> Distributions -> Distributions
 removeDistro distro distros = distros { nameMap = Map.delete distro (nameMap distros) }
 

src/Distribution/Server/Features/Distro/Types.hs

@@ -40,13 +40,13 @@ instance Pretty DistroName where
 instance Parsec DistroName where
   parsec = DistroName <$> P.munch1 (\c -> Char.isAlphaNum c || c `elem` "-_()[]{}=$,;")
 
--- | Listing of known distirbutions and their maintainers
+-- | Listing of known distributions and their maintainers
 data Distributions = Distributions {
     nameMap :: !(Map.Map DistroName UserIdSet)
 }
  deriving (Eq, Typeable, Show)
 
--- | Listing of which distirbutions have which version of particular
+-- | Listing of which distributions have which versions of particular
 -- packages.
 data DistroVersions = DistroVersions {
     packageDistroMap :: !(Map.Map PackageName (Map.Map DistroName DistroPackageInfo)),

src/Distribution/Server/Features/LegacyRedirects.hs

@@ -18,7 +18,7 @@ import qualified System.FilePath.Posix as Posix (joinPath, splitExtension)
 
 
 -- | A feature to provide redirection for URLs that existed in the first
--- incarnation of the hackage server.
+-- incarnation of the Hackage server.
 --
 legacyRedirectsFeature :: UploadFeature -> HackageFeature
 legacyRedirectsFeature upload = (emptyHackageFeature "legacy") {
@@ -32,7 +32,7 @@ legacyRedirectsFeature upload = (emptyHackageFeature "legacy") {
   , featureState = []
   }
 
--- | Support for the old URL scheme from the first version of hackage.
+-- | Support for the old URL scheme from the first version of Hackage.
 --
 
 -- | POST for package upload, particularly for cabal-install compatibility.

src/Distribution/Server/Features/PackageInfoJSON.hs

@@ -73,7 +73,7 @@ data PackageInfoJSONResource = PackageInfoJSONResource {
 -- | Initializing our feature involves adding JSON variants to the
 -- endpoints that serve basic information about a package-version,
 -- and a packages version deprecation status.
--- Aditionally we set up caching for these endpoints,
+-- Additionally we set up caching for these endpoints,
 -- and attach a package change hook that invalidates the cache
 -- line for a package when it changes
 initPackageInfoJSONFeature
@@ -128,7 +128,7 @@ initPackageInfoJSONFeature env = do
       }
 
 
--- | Pure function for extrcacting basic package info from a Cabal file
+-- | Pure function for extracting basic package info from a Cabal file
 getBasicDescription
   :: CabalFileText
   -> Int