[change representation of Properties to use a bitset rather than an IntSet
John Meacham <john@repetae.net>**20061218064620] hunk ./Info/Binary.hs 14
+import Util.BitSet as BS
hunk ./Info/Binary.hs 57
-    put_ bh props = putN8List bh (toList props)
-    get bh = fromDistinctAscList `fmap` getN8List bh
+    put_ bh (Properties (EnumBitSet props)) = put_ bh (BS.toWord props)
+    get bh = get bh >>= return . Properties . EnumBitSet . BS.fromWord
hunk ./Info/Binary.hs 60
-instance Binary Property where
-    put_ bh prop = putByte bh $ fromIntegral $ fromEnum prop
-    get bh = (toEnum . fromIntegral) `fmap` getByte bh
hunk ./Info/Types.hs 13
+import Util.BitSet
hunk ./Info/Types.hs 30
-newtype Properties = Properties (EnumSet Property)
+newtype Properties = Properties (EnumBitSet Property)