[add singleton and empty to Info
John Meacham <john@repetae.net>**20050928043513] hunk ./Info/Info.hs 27
-    mempty = Info []
+    mempty = empty
hunk ./Info/Info.hs 47
+singleton :: (Typeable a) => a -> Info
+singleton x = insert x empty
hunk ./Info/Info.hs 58
+
+empty :: Info
+empty = Info []