X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Fprinting%2FPrint002.hs;fp=ghc%2Fcompiler%2Ftests%2Fprinting%2FPrint002.hs;h=0000000000000000000000000000000000000000;hb=59cada2ff07d73b5d533f8fb2912480352861f08;hp=458170a6122466622ea94d0942f3bb47f2246541;hpb=d9de62d5329690525828f0e6453a086c54cb4517;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/printing/Print002.hs b/ghc/compiler/tests/printing/Print002.hs
deleted file mode 100644
index 458170a..0000000
--- a/ghc/compiler/tests/printing/Print002.hs
+++ /dev/null
@@ -1,40 +0,0 @@
---!!! Print002.hs: printing various entities in prefix/infix forms
---!!!	(both in various syntaxes & in interfaces)
-
-module Print002 where
-
--- type & data constructors
-
-data Foo a b c
-  = MkFoo1 a a
-  | (:##) b c
-  | b `MkFoo3` b
-  | c :*** c
-  deriving (Eq, Ord)
-
--- classes and methods
-
-class Bar a where
-    meth1, (/////) :: a -> a -> Bool
-    meth2 :: a -> b -> Bool
-
-class (Bar a) => Bar2 a	    -- no methods
-
--- regular values (and uses of the above)
-
-f1  x y	    = x `MkFoo1` y
-x `f1a` y    = MkFoo1 x y
-
-x `f2` y    = (:##) x y
-f2a x  y    = x :## y
-
-(....) x y  = MkFoo3 x y
-x .....  y  = x `MkFoo3` y
-
-x <<<< y    = x :*** y
-(<<<<) x y  = (:***) x y
-
-f3a x y = meth1 x y
-f3b x y = x `meth1` y
-f3c x y = (/////) x y
-f3d x y = x ///// y