Changeset 15684 for src/Pugs/Compile

Timestamp:

03/13/07 13:32:48 (21 months ago)

Author:

audreyt

Message:

* Misc. fixups.

This concludes the multi-variants-handling batch of commits.

Files:

• src/Pugs/Compile/Pugs.hs (modified) (3 diffs)

src/Pugs/Compile/Pugs.hs

@@ -7 +7 @@
 import qualified UTF8 as Str
 import qualified Data.Map as Map
+import qualified Data.Set as Set
 
 type Str = Str.ByteString
@@ -27 +28 @@
 instance (Compile x) => Compile [:x:] where
     compile xs = compWith "toP" [compileList (fromP xs)]
+
+instance (Compile x) => Compile (Set x) where
+    compile xs = compWith "Set.fromDistinctAscList" [compileList (Set.toAscList xs)]
 
 instance Compile (Maybe Exp) where
@@ -207 +211 @@
         , "import Pugs.Internals"
         , "import qualified Data.Map as Map"
+        , "import qualified Data.Set as Set"
         , ""
         , "main = do"