diff options
Diffstat (limited to 'ghc/compiler/tests/deSugar/ds040.hs')
| -rw-r--r-- | ghc/compiler/tests/deSugar/ds040.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/ghc/compiler/tests/deSugar/ds040.hs b/ghc/compiler/tests/deSugar/ds040.hs deleted file mode 100644 index d7fb6216e9..0000000000 --- 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" |