fix some build warnings from ghc 9.4.6

It now notices that a RepoLocation may not be Local, in which case
pattern matching on Local wouldn't do.

Command/PostReceive.hs

@@ -43,8 +43,10 @@ fixPostReceiveHookEnv = do
 	case location g of
 		Local { gitdir = ".", worktree = Just "." } ->
 			Annex.adjustGitRepo $ \g' -> pure $ g'
-				{ location = (location g')
-					{ worktree = Just ".." }
+				{ location = case location g' of
+					loc@(Local {}) -> loc 
+						{ worktree = Just ".." }
+					loc -> loc
 				}
 		_ -> noop