Changeset 2628 for src/Main.hs

Timestamp:

05/02/05 19:24:33 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4152

Message:

* Env is now constructed with MkEnv? for greater consistency.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -142 +142 @@
     runRule env f' ruleProgram name $ decodeUTF8 prog
     where
-    f' Env{ envBody = Val err@(VError _ _) } = do
+    f' env | Val err@(VError _ _) <- envBody env = do
         hPutStrLn stderr $ pretty err
         exitFailure