Changeset 12212 for src/Pugs/Val

Timestamp:

08/14/06 12:02:19 (2 years ago)

Author:

audreyt

Message:

* Before I go in and intern everything, here is Judy.Hash-interned

Pugs.Type implementation. This should have no functional changes,
except things suddenly feeling much, much faster.
(up to 2x according to selected micro benchmarks; smoke data later)

Files:

• src/Pugs/Val/Base.hs (modified) (1 diff)

src/Pugs/Val/Base.hs

@@ -103 +103 @@
 -- PureStr
 
-instance ((:>:) String) ByteString where cast = Char8.unpack
-instance ((:<:) String) ByteString where castBack = Char8.pack
-
-newtype PureStr = MkStr ByteString
-    deriving (Typeable, Show, Eq, Ord, Data, (:>:) String, (:<:) String, (:>:) ByteString, (:<:) ByteString)
+newtype PureStr = MkStr ByteString deriving
+    ( Typeable, Show, Eq, Ord, Data
+    , (:>:) ID, (:<:) ID
+    , (:>:) String, (:<:) String
+    , (:>:) ByteString, (:<:) ByteString
+    )
 
 parseInt :: PureStr -> Int