From ae7f92a542635e0f7fe97e5b4922144da523b2bc Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 17 Sep 1999 09:09:55 +0000
Subject: [PATCH] [project @ 1999-09-17 09:09:55 by simonpj] Add drvrun007, a
 test that crashed Hugs

---
 ghc/tests/deriving/should_run/drvrun007.hs     |    6 ++++++
 ghc/tests/deriving/should_run/drvrun007.stdout |    1 +
 2 files changed, 7 insertions(+)
 create mode 100644 ghc/tests/deriving/should_run/drvrun007.hs
 create mode 100644 ghc/tests/deriving/should_run/drvrun007.stdout

diff --git a/ghc/tests/deriving/should_run/drvrun007.hs b/ghc/tests/deriving/should_run/drvrun007.hs
new file mode 100644
index 0000000..5c26c34
--- /dev/null
+++ b/ghc/tests/deriving/should_run/drvrun007.hs
@@ -0,0 +1,6 @@
+module Main( main ) where
+-- This one crashed Hugs98
+
+data X = X | X :\ X  deriving Show
+
+main = putStrLn (show (X :\ X))
diff --git a/ghc/tests/deriving/should_run/drvrun007.stdout b/ghc/tests/deriving/should_run/drvrun007.stdout
new file mode 100644
index 0000000..fe13f39
--- /dev/null
+++ b/ghc/tests/deriving/should_run/drvrun007.stdout
@@ -0,0 +1 @@
+X :\ X
-- 
1.7.10.4