Changeset 5068 for src/gen_prelude.hs

Timestamp:

06/28/05 22:01:57 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6880

Message:

* Hopefully saner gen_prelude.hs that may make Limbic_Region happy -- untested!

Files:

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

src/gen_prelude.hs

@@ -24 +24 @@
     putStr $ preludeIntro moduleName
     str <- getContents
-    print . unlines . filter notComment . lines $ str
+    let lns = filter notComment . lines $ str
+    putStrLn . unlines . map (\ln -> "    , " ++ show ln) $ lns
+    putStrLn "    ]\n"
     where
     notComment ('#':_)      = False
@@ -59 +61 @@
 \ \n\
 \preludeStr :: String\n\
-\preludeStr = "
+\preludeStr = unlines\n\
+\    [ \"\"\n"