Changeset 2462 for src/Main.hs

Timestamp:

04/29/05 14:33:31 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* rewrote position handling and statement reduction logic.
* much better error message -- now with source ranges

Files:

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

src/Main.hs

@@ -194 +194 @@
     makeProper exp = case exp of
         Val err@(VError _ _) -> fail $ pretty err
+{-
         Stmts stmts@((_,pos):_) | not (runOptSeparately opts) -> do
             let withDump = stmts ++ [(Syn "env" [], pos)]
             return $ Stmts withDump
+-}
         _ | not (runOptSeparately opts) -> do
-            let pos = SourcePos "<interactive>" 0 0
-            return $ Stmts [(exp, pos), (Syn "env" [], pos)]
+            -- let pos = SourcePos "<interactive>" 0 0
+            return $ Stmts exp (Syn "env" [])
         _ -> return exp
     handler err = if not (isUserError err) then ioError err else do