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