Changeset 2319 for src/Main.hs

Timestamp:

04/25/05 10:42:44 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3850

Message:

* Withdraw the tentative change of using trailing comma as

disambiguator against collapsing closures into hashes;
instead we now rely on the "single expressionness".

Files:

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

src/Main.hs

@@ -177 +177 @@
     makeProper exp = case exp of
         Val err@(VError _ _) -> fail $ pretty err
-        Statements stmts@((_,pos):_) | not (runOptSeparately opts) -> do
+        Stmts stmts@((_,pos):_) | not (runOptSeparately opts) -> do
             let withDump = stmts ++ [(Syn "dump" [], pos)]
-            return $ Statements withDump
+            return $ Stmts withDump
         _ | not (runOptSeparately opts) -> fail "Expected statements"
         _ -> return exp