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 removed from the remote log, for the same reason the trust log
-- is not changed. -- is not changed.
dropDead :: TransitionCalculator 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 Just OldUUIDBasedLog
| f == trustLog -> PreserveFile | f == trustLog -> PreserveFile
| f == remoteLog -> ChangeFile $ | f == remoteLog -> ChangeFile $