1 files changed, 42 insertions, 0 deletions
diff --git a/testsuite/tests/rename/prog005/View.hs b/testsuite/tests/rename/prog005/View.hs
new file mode 100644
index 0000000000..c14d301c3d
--- /dev/null
+++ b/testsuite/tests/rename/prog005/View.hs
@@ -0,0 +1,42 @@
+{-
+Bug report submitted by George Russell, 1/10/2004:
+
+With both ghc6.2 and 6.2.20040915 on Linux, ghc --make cannot compile
+the attached files and produces a confusing error message.
+
+  # ghc --make View.hs
+Chasing modules from: View.hs
+Compiling ViewType         ( ./ViewType.hs, ./ViewType.o )
+Compiling VersionGraphClient ( ./VersionGraphClient.hs, ./VersionGraphClient.o )Compiling View             ( View.hs, View.o )
+
+View.hs:14:
+     Couldn't match `VersionGraphClient' against `VersionGraphClient'
+	Expected type: VersionGraphClient
+	Inferred type: VersionGraphClient
+     In the `graphClient1' field of a record
+     In the record construction: View {graphClient1 = graphClient}
+
+However ghc without make has no problems.
+
+# ghc -c ViewType.hs
+# ghc -c VersionGraphClient.hs
+# ghc -c View.hs
+-}
+
+-- | This module defines the fundamental structure of the (untyped) 
+-- objects in a repository. 
+-- 
+-- We depend circularly on CodedValue.hs.  This module is compiled
+-- first and uses CodedValue.hi-boot.
+module View(
+   ) where
+
+import ViewType
+import VersionGraphClient
+
+createView :: VersionGraphClient -> IO View
+createView graphClient =
+   do
+      return (View {
+         graphClient1 = graphClient
+         })