Hi all, The validate build is failing for me with the below. Does anyone know what's up please?
Thanks
Ian
===--- building phase 0
make -r --no-print-directory -f ghc.mk phase=0 phase_0_builds
make[1]: Nothing to be done for `phase_0_builds'.
===--- building phase 1
make -r --no-print-directory -f ghc.mk phase=1 phase_1_builds
===--- building final phase
make -r --no-print-directory -f ghc.mk phase=final all
"inplace/bin/ghc-stage2" -hisuf hi -osuf o -hcsuf hc -static -H32m -O -Werror
-Wall -H64m -O0 -package-name dph-prim-par-0.8.0.1 -hide-all-packages -i
-ilibraries/dph/dph-prim-par/. -ilibraries/dph/dph-prim-par/dist-install/build
-ilibraries/dph/dph-prim-par/dist-install/build/autogen
-Ilibraries/dph/dph-prim-par/dist-install/build
-Ilibraries/dph/dph-prim-par/dist-install/build/autogen
-Ilibraries/dph/dph-prim-par/. -optP-include
-optPlibraries/dph/dph-prim-par/dist-install/build/autogen/cabal_macros.h
-package base-4.7.0.0 -package dph-base-0.8.0.1 -package
dph-prim-interface-0.8.0.1 -package dph-prim-seq-0.8.0.1 -package
old-time-1.1.0.1 -package random-1.0.1.1 -package vector-0.9.1 -Odph
-funbox-strict-fields -fcpr-off -Wall -XHaskell98 -XTypeFamilies -XGADTs
-XRankNTypes -XBangPatterns -XMagicHash -XUnboxedTuples -XTypeOperators
-XFlexibleInstances -XFlexibleContexts -O2 -O -dcore-lint
-fno-warn-deprecated-flags -no-user-package-db -rtsopts -Wwarn -odir
libraries/dph/dph-prim-par/dist-install/build -hidir
libraries/dph/dph-prim-par/dist-install/build -stubdir
libraries/dph/dph-prim-par/dist-install/build -dynamic-too -c
libraries/dph/dph-prim-par/./Data/Array/Parallel/Unlifted/Distributed/Data/USegd/DT.hs
-o
libraries/dph/dph-prim-par/dist-install/build/Data/Array/Parallel/Unlifted/Distributed/Data/USegd/DT.o
-dyno
libraries/dph/dph-prim-par/dist-install/build/Data/Array/Parallel/Unlifted/Distributed/Data/USegd/DT.dyn_o
Var/Type length mismatch:
[]
[s{tv a15I} [tv]]
ghc-stage2: panic! (the 'impossible' happened)
(GHC version 7.7.20130530 for x86_64-unknown-linux):
Iface Lint failure
In interface for
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector
Unfolding of
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$fDTVector_$cnewMD{v
rS}
<no location info>: Warning:
In the expression: base:Control.Monad.liftM2{v rC} [gid]
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3{tv
a1Zk} [tv])
@ (vector-0.9.1:Data.Vector.Mutable.STVector{tc
rB}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
s3{tv a1Zk} [tv])
@ (base:GHC.ST.ST{tc rE} s3{tv a1Zk} [tv])
(base:GHC.ST.$fMonadST{v rA} [gid[DFunId]] @
s3{tv a1Zk} [tv])
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$WMDVector{v
rz} [gid[DataConWrapper]]
@ a4{tv a1Zi} [tv] @ s3{tv a1Zk} [tv])
((dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Scalar.Base.$fDTInt8{v
ry} [gid]
@ s3{tv a1Zk} [tv] g{v a1Zl} [lid])
`cast` (Sym
(base:GHC.ST.NTCo:ST{tc rx}[0]
<s3{tv a1Zk} [tv]>
<dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc
3J} s3{tv a1Zk} [tv]>)
:: base:GHC.ST.STRep{tc r1j3}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc
3J} s3{tv a1Zk} [tv])
~#
base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc
3J}
s3{tv a1Zk} [tv])))
((\ (s4{v a21s} [lid]
:: ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv]) ->
case
vector-0.9.1:Data.Vector.Fusion.Util.delay_inline{v rw} [gid]
@ ghc-prim:GHC.Types.Int{(w) tc 3J}
@ (ghc-prim:GHC.Types.Int{(w) tc 3J}
-> ghc-prim:GHC.Types.Int{(w) tc
3J})
ghc-prim:GHC.Classes.$fOrdInt_$cmax{v
rv} [gid]
(ghc-prim:GHC.Types.I#{(w) v 6d}
[gid[DataCon]] 0)
(case g{v a1Zl} [lid]
{ghc-prim:GHC.Types.Int{(w) tc 3J}}
of (wild{v a27g} [lid]
::
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{tc
rF})
{
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{d
ru} (dt{v a27R} [lid]
::
ghc-prim:GHC.Prim.Int#{(w) tc 3G})
(ds1{v a27S} [lid]
::
[base:GHC.MVar.MVar{tc r1Q2}
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Req{tc
r1Q1}])
(ds2{v a27T} [lid]
::
base:GHC.MVar.MVar{tc r1Q2}
ghc-prim:GHC.Types.Bool{(w) tc 3c}) ->
ghc-prim:GHC.Types.I#{(w) v 6d}
[gid[DataCon]]
dt{v a27R} [lid]
})
{(# ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv],
vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3{tv a1Zk}
[tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #)}
of (wild{v a27V} [lid] ::
ghc-prim:GHC.Types.Int{(w) tc 3J})
{ ghc-prim:GHC.Types.I#{(w) d 6c} (n#{v
a280} [lid]
::
ghc-prim:GHC.Prim.Int#{(w) tc 3G}) ->
case ghc-prim:GHC.Prim.newArray#{(w) v 920}
[gid[PrimOp]]
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3{tv
a1Zk} [tv]))
n#{v a280} [lid]
(base:GHC.Err.error{(w) v 05} [gid]
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
(ghc-prim:GHC.CString.unpackCString#{v 0k} [gid]
"MDist (Vector a) -
uninitalised"#))
(s4{v a21s} [lid]
`cast` (ghc-prim:GHC.Prim.State#{(w)
tc 32q}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>))
::
ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv]
~#
ghc-prim:GHC.Prim.State#{(w) tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc
rE}
s3{tv a1Zk}
[tv]))))
{(# ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv],
vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3{tv a1Zk}
[tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #)}
of (ds1{v a282} [lid]
:: (# ghc-prim:GHC.Prim.State#{(w) tc
32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv])),
ghc-prim:GHC.Prim.MutableArray#{(w) tc 31m}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #))
{ (# (ipv{v a284} [lid]
:: ghc-prim:GHC.Prim.State#{(w) tc
32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))),
(ipv1{v a285} [lid]
:: ghc-prim:GHC.Prim.MutableArray#{(w) tc 31m}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])) #) ->
(# ipv{v a284} [lid]
`cast` (ghc-prim:GHC.Prim.State#{(w) tc
32q}
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>)
:: ghc-prim:GHC.Prim.State#{(w)
tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
~#
ghc-prim:GHC.Prim.State#{(w)
tc 32q}
s3{tv a1Zk} [tv]),
vector-0.9.1:Data.Vector.Mutable.MVector{v rr} [gid[DataCon]]
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3{tv a1Zk}
[tv]))
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
0
n#{v a280} [lid]
ipv1{v a285} [lid] #)
}
})
`cast` (Sym
(base:GHC.ST.NTCo:ST{tc rx}[0]
<s3{tv a1Zk} [tv]>
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>))
<vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]>))
:: base:GHC.ST.STRep{tc r1j3}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3{tv
a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))
~#
base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))))
Argument value doesn't match argument type:
Fun type:
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3{tv a1Zk} [tv]
-> vector-0.9.1:Data.Vector.Mutable.STVector{tc rB}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
->
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
s3{tv a1Zk} [tv])
-> base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3{tv a1Zk} [tv])
-> base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Mutable.STVector{tc rB}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))
-> base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
s3{tv a1Zk} [tv])
Arg type:
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3{tv a1Zk} [tv]
-> vector-0.9.1:Data.Vector.Mutable.STVector{tc rB}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
->
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
Arg:
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$WMDVector{v
rz} [gid[DataConWrapper]]
@ a4{tv a1Zi} [tv] @ s3{tv a1Zk} [tv]
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$fDTVector_$cnewMD{v
rS} = \ (@ a4{tv a1Zi} [tv])
($dUnbox{v a1Zj} [lid]
:: vector-0.9.1:Data.Vector.Unboxed.Base.Unbox{tc
rW}
a4{tv a1Zi} [tv])
(@ s3{tv a1Zk} [tv])
(g{v a1Zl} [lid]
::
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{tc
rF}) ->
base:Control.Monad.liftM2{v rC} [gid]
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J}
s3{tv a1Zk} [tv])
@ (vector-0.9.1:Data.Vector.Mutable.STVector{tc rB}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
s3{tv a1Zk} [tv])
@ (base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv])
(base:GHC.ST.$fMonadST{v rA} [gid[DFunId]]
@ s3{tv a1Zk} [tv])
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$WMDVector{v
rz} [gid[DataConWrapper]]
@ a4{tv a1Zi} [tv]
@ s3{tv a1Zk} [tv])
((dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Scalar.Base.$fDTInt8{v
ry} [gid]
@ s3{tv a1Zk} [tv]
g{v a1Zl} [lid])
`cast` (Sym
(base:GHC.ST.NTCo:ST{tc rx}[0]
<s3{tv a1Zk} [tv]>
<dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J}
s3{tv a1Zk} [tv]>)
:: base:GHC.ST.STRep{tc r1j3}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J}
s3{tv a1Zk} [tv])
~#
base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J}
s3{tv a1Zk} [tv])))
((\ (s4{v a21s} [lid]
:: ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv]) ->
case
vector-0.9.1:Data.Vector.Fusion.Util.delay_inline{v rw} [gid]
@ ghc-prim:GHC.Types.Int{(w) tc 3J}
@ (ghc-prim:GHC.Types.Int{(w) tc 3J}
-> ghc-prim:GHC.Types.Int{(w) tc 3J})
ghc-prim:GHC.Classes.$fOrdInt_$cmax{v
rv} [gid]
(ghc-prim:GHC.Types.I#{(w) v 6d}
[gid[DataCon]]
0)
(case g{v a1Zl} [lid]
{ghc-prim:GHC.Types.Int{(w) tc 3J}}
of (wild{v a27g} [lid]
::
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{tc
rF})
{
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{d
ru} (dt{v a27R} [lid]
::
ghc-prim:GHC.Prim.Int#{(w) tc 3G})
(ds1{v a27S} [lid]
:: [base:GHC.MVar.MVar{tc
r1Q2}
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Req{tc
r1Q1}])
(ds2{v a27T} [lid]
:: base:GHC.MVar.MVar{tc
r1Q2}
ghc-prim:GHC.Types.Bool{(w) tc 3c}) ->
ghc-prim:GHC.Types.I#{(w) v 6d}
[gid[DataCon]]
dt{v a27R} [lid]
})
{(# ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv],
vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #)}
of (wild{v a27V} [lid]
:: ghc-prim:GHC.Types.Int{(w) tc 3J})
{ ghc-prim:GHC.Types.I#{(w) d 6c} (n#{v a280}
[lid]
::
ghc-prim:GHC.Prim.Int#{(w) tc 3G}) ->
case ghc-prim:GHC.Prim.newArray#{(w) v 920}
[gid[PrimOp]]
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
n#{v a280} [lid]
(base:GHC.Err.error{(w) v 05} [gid]
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
(ghc-prim:GHC.CString.unpackCString#{v 0k} [gid]
"MDist (Vector a) -
uninitalised"#))
(s4{v a21s} [lid]
`cast` (ghc-prim:GHC.Prim.State#{(w)
tc 32q}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>))
::
ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv]
~#
ghc-prim:GHC.Prim.State#{(w) tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))))
{(# ghc-prim:GHC.Prim.State#{(w) tc 32q}
s3{tv a1Zk} [tv],
vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #)}
of (ds1{v a282} [lid]
:: (# ghc-prim:GHC.Prim.State#{(w) tc
32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv])),
ghc-prim:GHC.Prim.MutableArray#{(w) tc 31m}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]) #))
{ (# (ipv{v a284} [lid]
:: ghc-prim:GHC.Prim.State#{(w) tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))),
(ipv1{v a285} [lid]
::
ghc-prim:GHC.Prim.MutableArray#{(w) tc 31m}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])) #) ->
(# ipv{v a284} [lid]
`cast` (ghc-prim:GHC.Prim.State#{(w) tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>)
:: ghc-prim:GHC.Prim.State#{(w) tc
32q}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
~#
ghc-prim:GHC.Prim.State#{(w) tc
32q}
s3{tv a1Zk} [tv]),
vector-0.9.1:Data.Vector.Mutable.MVector{v
rr} [gid[DataCon]]
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv])
0
n#{v a280} [lid]
ipv1{v a285} [lid] #)
}
})
`cast` (Sym
(base:GHC.ST.NTCo:ST{tc rx}[0]
<s3{tv a1Zk} [tv]>
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
<s3{tv a1Zk} [tv]>))
<vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]>))
:: base:GHC.ST.STRep{tc r1j3}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]))
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))
~#
base:GHC.ST.ST{tc rE}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
s3{tv a1Zk} [tv]
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4{tv a1Zi} [tv]))))
Iface expr = \ @ a4
$dUnbox :: vector-0.9.1:Data.Vector.Unboxed.Base.Unbox{tc
rW} a4
@ s3
g ::
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{tc
rF} ->
base:Control.Monad.liftM2{v rC}
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3)
@ (vector-0.9.1:Data.Vector.Mutable.STVector{tc rB}
s3 (vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc
rU} a4))
@
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4) s3)
@ (base:GHC.ST.ST{tc rE} s3)
(base:GHC.ST.$fMonadST{v rA} @ s3)
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Vector.$WMDVector{v
rz}
@ a4
@ s3)
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Data.Scalar.Base.$fDTInt8{v
ry}
@ s3
g)
`cast`
(Sym (base:GHC.ST.NTCo:ST{tc rx}[0]
(Refl s3)
(Refl
(dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.DT.MDist{tc
rD}
ghc-prim:GHC.Types.Int{(w) tc 3J} s3))))
(\ s4 :: ghc-prim:GHC.Prim.State#{(w) tc 32q} s3 ->
case vector-0.9.1:Data.Vector.Fusion.Util.delay_inline{v rw}
@ ghc-prim:GHC.Types.Int{(w) tc 3J}
@ (ghc-prim:GHC.Types.Int{(w) tc 3J}
-> ghc-prim:GHC.Types.Int{(w) tc 3J})
ghc-prim:GHC.Classes.$fOrdInt_$cmax{v rv}
(ghc-prim:GHC.Types.I#{(w) v 6d} 0)
(case g of wild {
dph-prim-par-0.8.0.1:Data.Array.Parallel.Unlifted.Distributed.Primitive.Gang.Gang{d
ru} dt ds1 ds2 ->
ghc-prim:GHC.Types.I#{(w) v 6d}
dt }) of wild { ghc-prim:GHC.Types.I#{(w) d 6c}
n# ->
case ghc-prim:GHC.Prim.newArray#{(w) v 920}
@ (vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc
rU} a4)
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3))
n#
(base:GHC.Err.error{(w) v 05}
@
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU} a4)
(ghc-prim:GHC.CString.unpackCString#{v 0k}
"MDist (Vector a) - uninitalised"#))
s4
`cast`
(ghc-prim:GHC.Prim.State#{(w) tc 32q}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
(Refl
s3)))) of ds1 {
ghc-prim:GHC.Prim.(#,#){(w) d 84} ipv ipv1 ->
(# ipv
`cast`
(ghc-prim:GHC.Prim.State#{(w) tc 32q}
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
(Refl s3))),
vector-0.9.1:Data.Vector.Mutable.MVector{v rr}
@
(primitive-0.4.0.1:Control.Monad.Primitive.PrimState{tc rt}
(base:GHC.ST.ST{tc rE} s3))
@ (vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU}
a4)
0
n#
ipv1 #) } })
`cast`
(Sym (base:GHC.ST.NTCo:ST{tc rx}[0]
(Refl s3)
(vector-0.9.1:Data.Vector.Mutable.MVector{tc rq}
(Sym
(primitive-0.4.0.1:Control.Monad.Primitive.TFCo:R:PrimStateST{tc rs}[0]
(Refl s3)))
(Refl
(vector-0.9.1:Data.Vector.Unboxed.Base.Vector{tc rU} a4)))))
Please report this as a GHC bug: http://www.haskell.org/ghc/reportabug
make[1]: ***
[libraries/dph/dph-prim-par/dist-install/build/Data/Array/Parallel/Unlifted/Distributed/Data/USegd/DT.o]
Error 1
make: *** [all] Error 2
_______________________________________________
ghc-devs mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/ghc-devs
