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