George Russell ([EMAIL PROTECTED]) wrote:
: Marc van Dongen wrote:
[error at line 629]
: Odd, because I get (from the anon-cvs repository)
:
: /usr/local/pub-bkb/ghc/ghc-latest/bin/ghc -cpp -fglasgow-exts -Rghc-timing -I.
:-IcodeGen -InativeGen -Iparser
:-iutils:basicTypes:types:hsSyn:prelude:rename:typecheck:deSugar:coreSyn:specialise:simplCore:stranal:stgSyn:simplStg:codeGen:absCSyn:main:profiling:parser:usageSP:cprAnalysis:nativeGen
: -recomp -H40m -Onot -c utils/FastString.lhs -o utils/FastString.o -osuf o
:
: FastString.lhs:632:
: Couldn't match
: `ByteArray Int' against `MutableByteArray RealWorld Int'
: Expected type: ByteArray Int
: Inferred type: MutableByteArray RealWorld Int
: In the second argument of `hPutBufBA', namely `mba'
: In a do statement: hPutBufBA handle mba (I# l#)
:
: Compilation had errors
:
:
: "cvs status" tells me that my copy of FastString.lhs is up-to-date.
Maybe you build with a different ghc-version?
#if __GLASGOW_HASKELL__ < 405
| otherwise = hPutBufBA handle (ByteArray bot ba#) (I# l#)
#elsif __GLASGOW_HASKELL__ < 407
| otherwise = hPutBufBA handle (ByteArray bot bot ba#) (I# l#)
#else
| otherwise = do mba <- stToIO $ unsafeThawByteArray (ByteArray (bot::Int) bo
hPutBufBA handle mba (I# l#)
Just a guess.
Regards,
Marc van Dongen
