Changeset 5358 for src/Pugs/Compile/Pugs.hs

Timestamp:

07/10/05 14:55:01 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* all prelude functions is now fully compiled in PCP...

let's see if turning on Pugs.Run support for PCP
will Magically Work

Files:

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

src/Pugs/Compile/Pugs.hs

@@ -92 +92 @@
     return $ prettyDo
         [ prettyBind "exp" expC
-        , text ("return (" ++ con ++ " " ++ show anno ++ " exp)")
+        , text ("return (" ++ con ++ " (" ++ show anno ++ ") exp)")
         ]
 
@@ -172 +172 @@
 -- Haddock can't cope with Template Haskell
 instance Compile VCode where
-    compile code | subType code == SubPrim = return $ text "return mkPrim"
+    compile MkCode{ subBody = Prim _ } = return $ text "return mkPrim"
     compile code = do 
         bodyC <- compile $ subBody code