X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds035.hs;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds035.hs;h=0000000000000000000000000000000000000000;hb=29b46083beaa048af4b4a68e8f96909ac98a639f;hp=5a29a0eb3be8202f35a1a3bad02579f05c9555d0;hpb=3436a37c72644f82471a7d8c684d67438b86cc3a;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/deSugar/ds035.hs b/ghc/compiler/tests/deSugar/ds035.hs
deleted file mode 100644
index 5a29a0e..0000000
--- a/ghc/compiler/tests/deSugar/ds035.hs
+++ /dev/null
@@ -1,18 +0,0 @@
-data CList = CNil | CCons Int# CList
-
-mk :: Int# -> CList
-mk n = case (n ==# 0#) of
-       0# -> CNil
-       _  -> CCons 1# (mk (n `minusInt#` 1#))
-
-clen :: CList -> Int#
-clen CNil = 0#
-clen (CCons _ cl) = 1# +# (clen cl)
-
-main = case len4_twice of
-	    8# -> "bingo\n"
-	    _  -> "oops\n"
-  where
-    list4	= mk 4#
-    len4	= clen list4
-    len4_twice	= len4 +# len4