[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds032.hs

diff --git a/ghc/compiler/tests/deSugar/ds032.hs b/ghc/compiler/tests/deSugar/ds032.hs
new file mode 100644 (file)
index 0000000..a1cda84
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds032.hs
@@ -0,0 +1,14 @@
+--!!! recursive funs tangled in an AbsBind
+
+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