remove redundant patern match

This commit is contained in:
Joey Hess 2022-06-28 15:12:32 -04:00
parent d2bc268317
commit f7c7a5ca7e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -184,7 +184,6 @@ cleanEnvironment = clean <$> getEnvironment
clean environ clean environ
| null vars = Nothing | null vars = Nothing
| otherwise = Just $ catMaybes $ map (restoreorig environ) environ | otherwise = Just $ catMaybes $ map (restoreorig environ) environ
| otherwise = Nothing
where where
vars = words $ fromMaybe "" $ vars = words $ fromMaybe "" $
lookup "GIT_ANNEX_STANDLONE_ENV" environ lookup "GIT_ANNEX_STANDLONE_ENV" environ