Another round of s/amoung/among/

Assistant/Monad.hs

@@ -99,7 +99,7 @@ class LiftAnnex m where
 	liftAnnex :: Annex a -> m a
 
 {- Runs an action in the git-annex monad. Note that the same monad state
- - is shared amoung all assistant threads, so only one of these can run at
+ - is shared among all assistant threads, so only one of these can run at
  - a time. Therefore, long-duration actions should be avoided. -}
 instance LiftAnnex Assistant where
 	liftAnnex a = do

Git/AutoCorrect.hs

@@ -27,7 +27,7 @@ gitEditCosts = EditCosts
 similarityFloor :: Int
 similarityFloor = 7
 
-{- Finds inexact matches for the input amoung the choices.
+{- Finds inexact matches for the input among the choices.
  - Returns an ordered list of good enough matches, or an empty list if
  - nothing matches well. -}
 fuzzymatches :: String -> (c -> String) -> [c] -> [c]

Logs/PreferredContent.hs

@@ -76,7 +76,7 @@ preferredContentMapRaw = simpleMap . parseLog Just
 	<$> Annex.Branch.get preferredContentLog
 
 {- This intentionally never fails, even on unparsable expressions,
- - because the configuration is shared amoung repositories and newer
+ - because the configuration is shared among repositories and newer
  - versions of git-annex may add new features. Instead, parse errors
  - result in a Matcher that will always succeed. -}
 makeMatcher :: GroupMap -> M.Map UUID RemoteConfig -> UUID -> String -> FileMatcher