[project @ 1997-07-30 23:52:45 by sof]

[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
deleted file mode 100644 (file)
index 31bc07e..0000000
--- a/ghc/compiler/tests/deSugar/ds032.hs
+++ /dev/null
@@ -1,17 +0,0 @@
---!!! recursive funs tangled in an AbsBind
-
-module ShouldSucceed 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