From 014177667af8e6e893b7cfe192df0d87d586807d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 21 Sep 1999 09:00:46 +0000
Subject: [PATCH] [project @ 1999-09-21 09:00:46 by sof] Testing the sanity of
 Show on Addr

---
 ghc/tests/lib/should_run/addr001.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 ghc/tests/lib/should_run/addr001.hs

diff --git a/ghc/tests/lib/should_run/addr001.hs b/ghc/tests/lib/should_run/addr001.hs
new file mode 100644
index 000000000000..89e49c45e26b
--- /dev/null
+++ b/ghc/tests/lib/should_run/addr001.hs
@@ -0,0 +1,10 @@
+-- !!! Testing that Show for Addr is OK..
+module Main(main) where
+
+import Addr
+
+main :: IO ()
+main = do
+  print (intToAddr maxBound)
+  print (intToAddr minBound)
+
-- 
GitLab