Commit e00a6026 authored by simonmar's avatar simonmar

[project @ 2004-10-05 11:48:03 by simonmar]

Add George Russell's hi-boot bug
parent 3aa82723
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
module VersionGraphClient where
data VersionGraphClient
module VersionGraphClient(
VersionGraphClient,
) where
import ViewType
newtype VersionGraphClient = VersionGraphClient Int
{-
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
})
module ViewType(
View(..),
) where
import {-# SOURCE #-} VersionGraphClient
data View = View {
graphClient1 :: VersionGraphClient
}
test('rename.prog005', normal, multimod_compile, \
['View', '-v0'])
clean(['VersionGraphClient.hi', 'VersionGraphClient.o', 'ViewType.hi', 'ViewType.o', 'View.hi', 'View.o'])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment