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

diff --git a/ghc/compiler/tests/deSugar/ds022.hs b/ghc/compiler/tests/deSugar/ds022.hs
deleted file mode 100644
index ce07e19..0000000
--- a/ghc/compiler/tests/deSugar/ds022.hs
+++ /dev/null
@@ -1,32 +0,0 @@
---!!! ds022 -- literal patterns (wimp version)
---
-module Tests where
-
-f 1 1.1 = []
-f 2 2.2 = []
-f 3 3.3 = []
-f 4 4.4 = []
-
-g 11111111111111111111111 1.11111111111111111 = []
-g 22222222222222222222222 2.22222222222222222 = []
-g 33333333333333333333333 3.33333333333333333 = []
-g 44444444444444444444444 4.44444444444444444 = []
-
-h 'a'	    ""			= []
-h '\''	    "foo"		= []
-h '"'	    ('b':'a':'r':[])	= []
-h '\o250'   blob		= []
-
-i 1 1.1     = []
-i 2 2.2     = []
-i 1 0.011e2 = []
-i 2 2.20000 = []
-
-{-
-j one@1 oneone@1.1
-  | ((fromFloat oneone) - (fromIntegral (fromInt one)))
-	/= (fromIntegral (fromInt 0)) = []
-j two@2 twotwo@2.2
-  | ((fromFloat twotwo) * (fromIntegral (fromInt 2)))
-	== (fromIntegral (fromInt 4.4)) = []
--}