Changeset 9377 for src/Pugs/CodeGen.hs

Timestamp:

03/10/06 13:18:50 (3 years ago)

Author:

gaal

Message:

* Pugs.AST.Internals: add CompUnit? data type for serialization

(see docs/notes/precompilation_cache.pod)

* DrIFT.[Rule]?YAML: small readability fixes
* reDrIFT.

Files:

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

src/Pugs/CodeGen.hs

@@ -87 +87 @@
 codeGen :: String -> Env -> IO String
 codeGen s env = do
-    gen <- catch (doLookup s) $ \_ -> do
+    gen <- catch (doLookup s) $ const $ do
         fail $ "Cannot generate code for " ++ s
     rv <- runEvalIO env gen