[project @ 1996-01-08 20:28:12 by partain]

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

diff --git a/ghc/compiler/tests/deSugar/ds023.hs b/ghc/compiler/tests/deSugar/ds023.hs
new file mode 100644 (file)
index 0000000..ecd6e13
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds023.hs
@@ -0,0 +1,7 @@
+--!!! ds023 -- overloading eg from section 9.2
+--
+module Tests where
+
+f x    = g (x == x) x
+g b x  = abs (f x)
+--g b x        = (f x) + (f x)