[project @ 1996-01-08 20:28:12 by partain]
[ghc.git] / ghc / compiler / tests / deSugar / ds032.hs
1 --!!! recursive funs tangled in an AbsBind
2
3 flatten :: Int -- Indentation
4 -> Bool -- True => just had a newline
5 -> Float -- Current seq to flatten
6 -> [(Int,Float)]-- Work list with indentation
7 -> String
8
9 flatten n nlp 0.0 seqs = flattenS nlp seqs
10 flatten n nlp 1.0 seqs = flatten n nlp 1.1 ((n,1.2) : seqs)
11
12 flattenS :: Bool -> [(Int, Float)] -> String
13 flattenS nlp [] = ""
14 flattenS nlp ((col,seq):seqs) = flatten col nlp seq seqs