[project @ 1997-07-30 23:52:45 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds040.hs

diff --git a/ghc/compiler/tests/deSugar/ds040.hs b/ghc/compiler/tests/deSugar/ds040.hs
deleted file mode 100644 (file)
index d7fb621..0000000
--- a/ghc/compiler/tests/deSugar/ds040.hs
+++ /dev/null
@@ -1,13 +0,0 @@
---!!! Another bug in overloaded n+k patts
---
-
-main _ = [AppendChan stdout (shows ((4::Int) ^^^^ (6::Int)) "\n")]
-
-(^^^^)         :: (Num a, Integral b) => a -> b -> a
-x ^^^^ 0               =  1
-x ^^^^ (n+1)   =  f x n x
-                  where f _ 0 y = y
-                        f x n y = g x n  where
-                                  g x n | even n  = g (x*x) (n `quot` 2)
-                                        | otherwise = f x (n-1) (x*y)
-_ ^^^^ _               = error "(^^^^){Prelude}: negative exponent"