[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / typecheck / should_run / tcrun002.hs

diff --git a/ghc/tests/typecheck/should_run/tcrun002.hs b/ghc/tests/typecheck/should_run/tcrun002.hs
deleted file mode 100644 (file)
index 348ca22..0000000
--- a/ghc/tests/typecheck/should_run/tcrun002.hs
+++ /dev/null
@@ -1,16 +0,0 @@
--- !!! space leak from overloading !!!
-module Main where
-
--- This program develops a space leak if sfoldl isn't compiled with some
--- care.  See comment about polymorphic recursion in TcMonoBinds.lhs
-
-import System(getArgs)
-import PrelIOBase
-
-sfoldl :: (a -> Int -> a) -> a -> [Int] -> a
-sfoldl f z [] = z
-sfoldl f z (x:xs) = _scc_ "sfoldl1" (sfoldl f fzx (fzx `seq` xs))
-                  where fzx = _scc_ "fzx" (f z x)
-
-
-main = IO (\s -> case print (sfoldl (+) (0::Int) [1..200000]) of { IO a -> a s })