Don't generate duplicate code (e.g. tuples; 'use strict')

771ec158 · Camil Staps · 50550928 · 771ec158
Verified Commit 771ec158 authored Jun 19, 2018 by Camil Staps
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/saplcg.icl src/saplcg.icl +1 -1

No files found.
--- a/src/saplcg.icl
+++ b/src/saplcg.icl
@@ -60,7 +60,7 @@ Start w
 | any isNothing files = error Nothing "Parsing failed" w

 # (out,w) = stdio w
-# (out,_,w) = seqSt (genCode opts) [f \\ Just f <- files] (out,pst,w)
+# (out,_,w) = genCode opts (join "\n" [f \\ Just f <- files]) (out,pst,w)
 # (_,w) = fclose out w

 = w