From 811d86aa3b0f0fdff1cb0f15c8b980e2992b0994 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 16 Sep 1999 17:55:57 +0000
Subject: [PATCH] [project @ 1999-09-16 17:55:57 by sof] newtypes with a
 labelled field caused DS trouble sometime back

---
 ghc/tests/deSugar/should_compile/ds048.hs |    7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 ghc/tests/deSugar/should_compile/ds048.hs

diff --git a/ghc/tests/deSugar/should_compile/ds048.hs b/ghc/tests/deSugar/should_compile/ds048.hs
new file mode 100644
index 0000000..2003430
--- /dev/null
+++ b/ghc/tests/deSugar/should_compile/ds048.hs
@@ -0,0 +1,7 @@
+-- !!! newtypes with a labelled field.
+module ShouldSucceed where
+
+newtype Foo = Foo { x :: Int } deriving (Eq)
+
+f :: Foo -> Foo -> Int
+f a b = x a + x b
-- 
1.7.10.4