Changeset 9256 for src/Pugs/Compile.hs

Timestamp:

03/03/06 15:52:56 (3 years ago)

Author:

audreyt

Message:

* workaround to get PIL2JS compiling -- PIL wasn't handling VRefs correctly.

Files:

• src/Pugs/Compile.hs (modified) (1 diff)

src/Pugs/Compile.hs

@@ -404 +404 @@
 {-| Compiles a 'Val' to a 'PIL_Literal'. -}
 instance Compile Val PIL_Literal where
+    compile (VList vs) = return $ PVal (VList (filter isSimple vs))
+        where
+        isSimple (VRef _) = False
+        isSimple _        = True
+    compile (VRef _) = return $ PVal VUndef
     compile val = return $ PVal val