Changeset 2320 for src/Main.hs

Timestamp:

04/25/05 10:51:06 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3850

Message:

* repair single stmt in shell

Files:

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

src/Main.hs

@@ -180 +180 @@
             let withDump = stmts ++ [(Syn "dump" [], pos)]
             return $ Stmts withDump
-        _ | not (runOptSeparately opts) -> fail "Expected statements"
+        _ | not (runOptSeparately opts) -> do
+            let pos = SourcePos "<interactive>" 0 0
+            return $ Stmts [(exp, pos), (Syn "dump" [], pos)]
         _ -> return exp
     handler err = if not (isUserError err) then ioError err else do