From 06296276a418a45846f0bd3c8a847d65c4bf4b6d Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Thu, 8 May 2008 20:45:48 +0000
Subject: [PATCH] Use unlines in GenOrdAST too.

---
 GenOrdAST.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/GenOrdAST.hs b/GenOrdAST.hs
index c58cae5..53aee84 100644
--- 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