remove read of the heads

and one tail

Removed head from Utility.PartialPrelude in order to avoid the build
warning with recent ghc versions as well.

Git/AutoCorrect.hs

@@ -15,6 +15,7 @@ import qualified Git.Config
 
 import Text.EditDistance
 import Control.Concurrent
+import qualified Data.List.NonEmpty as NE
 
 {- These are the same cost values as used in git. -}
 gitEditCosts :: EditCosts
@@ -44,7 +45,7 @@ fuzzymatches input showchoice choices = fst $ unzip $
 {- Takes action based on git's autocorrect configuration, in preparation for
  - an autocorrected command being run.
  -}
-prepare :: String -> (c -> String) -> [c] -> Maybe Repo -> IO ()
+prepare :: String -> (c -> String) -> NE.NonEmpty c -> Maybe Repo -> IO ()
 prepare input showmatch matches r =
 	case readish . fromConfigValue . Git.Config.get "help.autocorrect" "0" =<< r of
 		Just n
@@ -57,7 +58,7 @@ prepare input showmatch matches r =
 		[ "Unknown command '" ++ input ++ "'"
 		, ""
 		, "Did you mean one of these?"
-		] ++ map (\m -> "\t" ++ showmatch m) matches
+		] ++ map (\m -> "\t" ++ showmatch m) (NE.toList matches)
 	warn :: Maybe Float -> IO ()
 	warn mdelaysec = hPutStr stderr $ unlines
 		[ "WARNING: You called a git-annex command named '" ++
@@ -67,7 +68,7 @@ prepare input showmatch matches r =
 			Just sec -> "Continuing in " ++ show sec ++ " seconds, assuming that you meant " ++ match
 		]
 	  where
-		match = "'" ++ showmatch (Prelude.head matches) ++ "'."
+		match = "'" ++ showmatch (NE.head matches) ++ "'."
 	sleep n = do
 		warn (Just (fromIntegral n / 10 :: Float))
 		threadDelay (n * 100000) -- deciseconds to microseconds