[fix Info merging
John Meacham <john@repetae.net>**20050929004255] hunk ./Info/Info.hs 28
-    mappend (Info as) (Info bs) = Info ([ b | b <- bs, not (show b `Set.member` bss) ] ++ as) where
-        bss = Set.fromList $ map show bs
+    mappend (Info as) (Info bs) = Info ([ b | b <- bs, not (show b `Set.member` ass) ] ++ as) where
+        ass = Set.fromList $ map show as