ghc/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