fix warning

This commit is contained in:
Joey Hess 2020-02-17 14:57:19 -04:00
parent 1c387175eb
commit ae4177d456
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -55,7 +55,7 @@ getTransitionCalculator ForgetDeadRemotes = Just dropDead
-- is not removed from the remote log, for the same reason the trust log
-- is not changed.
dropDead :: TransitionCalculator
dropDead config trustmap remoteconfigmap f content = case getLogVariety config f of
dropDead gc trustmap remoteconfigmap f content = case getLogVariety gc f of
Just OldUUIDBasedLog
| f == trustLog -> PreserveFile
| f == remoteLog -> ChangeFile $