blob: 09e2de15a70718b6f4a5921a9a6b004ab34b87e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
-- !!! recursive funs tangled in an AbsBind
module ShouldCompile where
flatten :: Int -- Indentation
-> Bool -- True => just had a newline
-> Float -- Current seq to flatten
-> [(Int,Float)]-- Work list with indentation
-> String
flatten n nlp 0.0 seqs = flattenS nlp seqs
flatten n nlp 1.0 seqs = flatten n nlp 1.1 ((n,1.2) : seqs)
flattenS :: Bool -> [(Int, Float)] -> String
flattenS nlp [] = ""
flattenS nlp ((col,seq):seqs) = flatten col nlp seq seqs
|
