Changeset 5364

Timestamp:

07/10/05 17:43:17 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* argh, PCP broke PIR compilation. too tired to fix it tonight

-- at least throw out a meaningful error msg.

Files:

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

src/Pugs/CodeGen.hs

@@ -45 +45 @@
     gen <- catch (doLookup s) $ \_ -> do
         fail $ "Cannot compile to " ++ s
-    VStr str <- runEvalIO env gen
-    return str
+    rv <- runEvalIO env gen
+    case rv of
+        VStr str    -> return str
+        _           -> fail (show rv)