Changeset 2449 for src/Main.hs

Timestamp:

04/28/05 23:45:52 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* Eval monad is now a EvalT transformer by itself.
* Much better error reporting on fail "".
* retError now accepts any Show type as the second arg.

Files:

• src/Main.hs (modified) (2 diffs)

src/Main.hs

@@ -138 +138 @@
 doParseWith :: (Env -> FilePath -> IO a) -> FilePath -> String -> IO a
 doParseWith f name prog = do
-    env <- emptyEnv []
+    env <- emptyEnv name []
     runRule env f' ruleProgram name $ decodeUTF8 prog
     where
@@ -149 +149 @@
 doParse :: FilePath -> String -> IO ()
 doParse name prog = do
-    env <- emptyEnv []
+    env <- emptyEnv name []
     case runRule env envBody ruleProgram name (decodeUTF8 prog) of
         (Val err@(VError _ _)) -> putStrLn $ pretty err