diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-30 11:57:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-30 11:57:40 -0400 |
| commit | 2246697031d8d4f093e511a2c4167485a5d4b8a3 (patch) | |
| tree | 1d3401461259af7995b9ab0ed01ff87aabde4eef /Annex/Branch | |
| parent | 6e071f2b014ac2f076db8cd9c123664e84a4fa40 (diff) | |
add missing Ord constraint (fixes android build)
Probably the new ghc used on android is the root cause of needing this
constraint.
Diffstat (limited to 'Annex/Branch')
| -rw-r--r-- | Annex/Branch/Transitions.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Branch/Transitions.hs b/Annex/Branch/Transitions.hs index 4c39f198f..f5833c0bc 100644 --- a/Annex/Branch/Transitions.hs +++ b/Annex/Branch/Transitions.hs @@ -51,7 +51,7 @@ dropDead f content trustmap = case getLogVariety f of Just OtherLog -> PreserveFile Nothing -> PreserveFile -dropDeadFromMapLog :: TrustMap -> (k -> UUID) -> M.Map k v -> M.Map k v +dropDeadFromMapLog :: Ord k => 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 |