summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--KeyRing.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index c5c8bf2..c99a2f5 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2287,8 +2287,6 @@ data OriginFlags = OriginFlags {
2287type OriginMap = Map.Map FilePath OriginFlags 2287type OriginMap = Map.Map FilePath OriginFlags
2288data MappedPacket = MappedPacket 2288data MappedPacket = MappedPacket
2289 { packet :: Packet 2289 { packet :: Packet
2290 , usage_tag :: Maybe String
2291 -- ^ TODO: is usage_tag used anywhere?
2292 , locations :: OriginMap 2290 , locations :: OriginMap
2293 } 2291 }
2294 2292
@@ -2321,8 +2319,6 @@ origin p n = OriginFlags ispub n
2321mappedPacket :: FilePath -> Packet -> MappedPacket 2319mappedPacket :: FilePath -> Packet -> MappedPacket
2322mappedPacket filename p = MappedPacket 2320mappedPacket filename p = MappedPacket
2323 { packet = p 2321 { packet = p
2324 , usage_tag = Nothing
2325 -- TODO: is usage_tag used?
2326 , locations = Map.singleton filename (origin p (-1)) 2322 , locations = Map.singleton filename (origin p (-1))
2327 } 2323 }
2328 2324
@@ -2382,8 +2378,6 @@ mergeKeyPacket :: String -> MappedPacket -> MappedPacket -> MappedPacket
2382mergeKeyPacket what key p = 2378mergeKeyPacket what key p =
2383 key { packet = minimumBy (keyCompare what) [packet key,packet p] 2379 key { packet = minimumBy (keyCompare what) [packet key,packet p]
2384 , locations = Map.union (locations key) (locations p) 2380 , locations = Map.union (locations key) (locations p)
2385 , usage_tag = usage_tag key `mplus` usage_tag p
2386 -- TODO: is usage_tag used?
2387 } 2381 }
2388 2382
2389 2383