From bdb9d2a209fbada91a53938c8cf8ad666d6df832 Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Wed, 27 Jan 2016 14:44:38 +0100 Subject: Unneded constraint --- Annex/Branch/Transitions.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Branch/Transitions.hs b/Annex/Branch/Transitions.hs index a9c7daa20..7b1f32b31 100644 --- a/Annex/Branch/Transitions.hs +++ b/Annex/Branch/Transitions.hs @@ -52,7 +52,7 @@ dropDead f content trustmap = case getLogVariety f of Just OtherLog -> PreserveFile Nothing -> PreserveFile -dropDeadFromMapLog :: Ord k => TrustMap -> (k -> UUID) -> M.Map k v -> M.Map k v +dropDeadFromMapLog :: TrustMap -> (k -> UUID) -> M.Map k v -> M.Map k v dropDeadFromMapLog trustmap getuuid = M.filterWithKey $ \k _v -> notDead trustmap getuuid k {- Presence logs can contain UUIDs or other values. Any line that matches -- cgit v1.2.3