Apply codespell -w throughout

Command/Assistant.hs

@@ -94,7 +94,7 @@ autoStart o = do
 						, putStrLn "failed"
 						)
 				return Nothing
-	-- Wait for any foreground jobs to finish and propigate exit status.
+	-- Wait for any foreground jobs to finish and propagate exit status.
 	ifM (all (== True) <$> mapConcurrently checkSuccessProcess (catMaybes pids))
 		( exitSuccess
 		, exitFailure

Command/CalcKey.hs

@@ -16,7 +16,7 @@ cmd :: Command
 cmd = noCommit $ noMessages $ dontCheck repoExists $
 	withAnnexOptions [backendOption] $
 		command "calckey" SectionPlumbing 
-			"calulate key for a file"
+			"calculate key for a file"
 			(paramRepeating paramFile)
 			(batchable run (pure ()))
 

Command/Fsck.hs

@@ -667,7 +667,7 @@ recordFsckTime inc key = withFsckDb inc $ \h -> liftIO $ FsckDb.addDb h key
 
 {- Records the start time of an incremental fsck.
  -
- - To guard against time stamp damange (for example, if an annex directory
+ - To guard against time stamp damage (for example, if an annex directory
  - is copied without -a), the fsckstate file contains a time that should
  - be identical to its modification time.
  - (This is not possible to do on Windows, and so the timestamp in

Command/ImportFeed.hs

@@ -519,7 +519,7 @@ feedState url = fromRepo $ gitAnnexFeedState $ fromUrl url Nothing
  -
  - So, it's not safe to use T.unpack to convert that to a String,
  - because later use of that String by eg encodeBS will crash
- - with an encoding error. Use this instad.
+ - with an encoding error. Use this instead.
  -
  - This should not be used on a Text that is read using the
  - filesystem encoding because it does not reverse that encoding.

Command/Move.hs

@@ -356,7 +356,7 @@ fromToStart removewhen afile key ai si src dest = do
  - drop the local copy, and finally drop from the src.
  -
  - Using a regular download of the local copy, rather than download to
- - some other file makes resuming an interruped download work as usual,
+ - some other file makes resuming an interrupted download work as usual,
  - and simplifies implementation. It does mean that, if `git-annex get` of
  - the same content is being run at the same time as this move, the content
  - may end up locally present, or not. This is similar to the behavior 

Command/P2P.hs

@@ -87,7 +87,7 @@ unusedPeerRemoteName = go (1 :: Integer) =<< usednames
 
 -- Only addresses are output to stdout, to allow scripting.
 genAddresses :: [P2PAddress] -> Annex ()
-genAddresses [] = giveup "No P2P networks are currrently available."
+genAddresses [] = giveup "No P2P networks are currently available."
 genAddresses addrs = do
 	authtoken <- liftIO $ genAuthToken 128
 	storeP2PAuthToken authtoken
@@ -124,7 +124,7 @@ linkRemote remotename = starting "p2p link" ai si $
 						AuthenticationError e -> giveup e
 
 startPairing :: RemoteName -> [P2PAddress] -> CommandStart
-startPairing _ [] = giveup "No P2P networks are currrently available."
+startPairing _ [] = giveup "No P2P networks are currently available."
 startPairing remotename addrs = ifM (liftIO Wormhole.isInstalled)
 	( starting "p2p pair" ai si $
 		performPairing remotename addrs

Command/Sync.hs

@@ -454,7 +454,7 @@ updateBranches (Just branch, madj) = do
 				case madj' of
 					Nothing -> noop
 					Just adj -> updateadjustedbranch adj
-		-- When in an adjusted branch, propigate any changes
+		-- When in an adjusted branch, propagate any changes
 		-- made to it back to the original branch.
 		Nothing -> case madj of
 			Just adj -> do
@@ -739,7 +739,7 @@ newer remote b = do
 		)
 
 {- Without --all, only looks at files in the work tree.
- - (Or, when in an ajusted branch where some files are hidden, at files in
+ - (Or, when in an adjusted branch where some files are hidden, at files in
  - the original branch.)
  -
  - With --all, when preferred content expressions look at filenames,

Command/View.hs

@@ -110,7 +110,7 @@ checkoutViewBranch view madj mkbranch = do
 		setView view
 		{- A git repo can easily have empty directories in it,
 		 - and this pollutes the view, so remove them.
-		 - (However, emptry directories used by submodules are not
+		 - (However, empty directories used by submodules are not
 		 - removed.) -}
 		top <- liftIO . absPath =<< fromRepo Git.repoPath
 		(l, cleanup) <- inRepo $

Command/WebApp.hs

@@ -103,7 +103,7 @@ start' allowauto o = do
 		liftIO $ firstRun o
 
 {- If HOME is a git repo, even if it's initialized for git-annex,
- - the user almost certianly does not want to run the assistant there. -}
+ - the user almost certainly does not want to run the assistant there. -}
 notHome :: Annex Bool
 notHome = do
 	g <- Annex.gitRepo