Use unlines in GenOrdAST too.

2008-05-08 20:45:48 +00:00 · 2008-05-08 20:45:48 +00:00 · 06296276a4
commit 06296276a4
parent 8b991806e7
1 changed files with 1 additions and 4 deletions
--- a/GenOrdAST.hs
+++ b/GenOrdAST.hs
@ -117,8 +117,5 @@ items = concat
 
   u = undefined

-joinLines :: [String] -> String
-joinLines xs = concat [x ++ "\n" | x <- xs]
-
 main :: IO ()
-main = putStr $ joinLines $ genHeader ++ items
+main = putStr $ unlines $ genHeader ++ items