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

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg043.hs

diff --git a/ghc/tests/codeGen/should_run/cg043.hs b/ghc/tests/codeGen/should_run/cg043.hs
deleted file mode 100644 (file)
index 88de4c9..0000000
--- a/ghc/tests/codeGen/should_run/cg043.hs
+++ /dev/null
@@ -1,18 +0,0 @@
--- !!! Tickled a bug in core2stg 
--- !!! (CoreSyn.Coerce constructors were not peeled off
--- !!! when converting CoreSyn.App)
-
-module Main where
-
-getData :: String -> IO ()
-getData filename = case leng filename of {0 -> return ()}
-leng :: String -> Int
-leng [] = 0 --case ls of {[] -> 0 ; (_:xs) -> 1 + leng xs }
-leng ls = leng ls
-
-f [] [] = []
-f xs ys = f xs ys
-
-main =
-     return ()  >>= \ _ ->
-     case f [] [] of { [] -> getData [] }