X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fmisc%2FCharSeq.lhs;h=b400a00027e7b2593c216eca8b03e07f28bb6d70;hb=94ac8915eb5ea8e47022d30405e5de0b88eb3f83;hp=43dfb7f4781163c8c2d3f0b411903a17d445728d;hpb=a9d0fc543966edebf8f23c87982a826c8eb3d0c2;p=ghc-hetmet.git

diff --git a/ghc/lib/misc/CharSeq.lhs b/ghc/lib/misc/CharSeq.lhs
index 43dfb7f..b400a00 100644
--- a/ghc/lib/misc/CharSeq.lhs
+++ b/ghc/lib/misc/CharSeq.lhs
@@ -139,17 +139,17 @@ flatten :: FAST_INT	-- Indentation
 	-> [WorkItem]	-- Work list with indentation
 	-> String
 
-flatten n nlp CNil seqs = flattenS nlp seqs
+flatten _ nlp CNil seqs = flattenS nlp seqs
 
 flatten n nlp (CAppend seq1 seq2) seqs = flatten n nlp seq1 ((WI n seq2) : seqs)
 flatten n nlp (CIndent IBOX(n2) seq) seqs = flatten (n2 _ADD_ n) nlp seq seqs
 
-flatten n _FALSE_ CNewline seqs = '\n' : flattenS _TRUE_ seqs
-flatten n _TRUE_  CNewline seqs = flattenS _TRUE_ seqs	-- Already at start of line
+flatten _ _FALSE_ CNewline seqs = '\n' : flattenS _TRUE_ seqs
+flatten _ _TRUE_  CNewline seqs = flattenS _TRUE_ seqs	-- Already at start of line
 
-flatten n _FALSE_ (CStr s) seqs = s ++ flattenS _FALSE_ seqs
-flatten n _FALSE_ (CCh  c) seqs = c :  flattenS _FALSE_ seqs
-flatten n _FALSE_ (CInt i) seqs = show i ++ flattenS _FALSE_ seqs
+flatten _ _FALSE_ (CStr s) seqs = s ++ flattenS _FALSE_ seqs
+flatten _ _FALSE_ (CCh  c) seqs = c :  flattenS _FALSE_ seqs
+flatten _ _FALSE_ (CInt i) seqs = show i ++ flattenS _FALSE_ seqs
 #if defined(COMPILING_GHC)
 flatten n _FALSE_ (CPStr s) seqs = _UNPK_ s ++ flattenS _FALSE_ seqs
 #endif
@@ -164,7 +164,7 @@ flatten n _TRUE_ (CPStr s) seqs = mkIndent n ( _UNPK_ s ++ flattenS _FALSE_ seqs
 
 \begin{code}
 flattenS :: FAST_BOOL -> [WorkItem] -> String
-flattenS nlp [] = ""
+flattenS _   [] = ""
 flattenS nlp ((WI col seq):seqs) = flatten col nlp seq seqs
 \end{code}