Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / deSugar / should_compile / ds032.hs
1 -- !!! recursive funs tangled in an AbsBind
2
3 module ShouldCompile where
4
5
6 flatten :: Int -- Indentation
7 -> Bool -- True => just had a newline
8 -> Float -- Current seq to flatten
9 -> [(Int,Float)]-- Work list with indentation
10 -> String
11
12 flatten n nlp 0.0 seqs = flattenS nlp seqs
13 flatten n nlp 1.0 seqs = flatten n nlp 1.1 ((n,1.2) : seqs)
14
15 flattenS :: Bool -> [(Int, Float)] -> String
16 flattenS nlp [] = ""
17 flattenS nlp ((col,seq):seqs) = flatten col nlp seq seqs