static-tensor-0.1.0.0: tests/CoreDump/Tensor/SetSubtensorElems.dump-simpl.ghc821.golden
==================== Tidy Core ====================
2017-09-08 01:36:13.1436739 UTC
Result size of Tidy Core
= {terms: 142, types: 327, coercions: 3, joins: 0/0}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.SetSubtensorElems.$trModule2 :: GHC.Prim.Addr#
CoreDump.Tensor.SetSubtensorElems.$trModule2
= "CoreDump.Tensor.SetSubtensorElems"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.SetSubtensorElems.$trModule1 :: GHC.Types.TrName
CoreDump.Tensor.SetSubtensorElems.$trModule1
= GHC.Types.TrNameS CoreDump.Tensor.SetSubtensorElems.$trModule2
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.SetSubtensorElems.$trModule4 :: GHC.Prim.Addr#
CoreDump.Tensor.SetSubtensorElems.$trModule4 = "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.SetSubtensorElems.$trModule3 :: GHC.Types.TrName
CoreDump.Tensor.SetSubtensorElems.$trModule3
= GHC.Types.TrNameS CoreDump.Tensor.SetSubtensorElems.$trModule4
-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
CoreDump.Tensor.SetSubtensorElems.$trModule :: GHC.Types.Module
CoreDump.Tensor.SetSubtensorElems.$trModule
= GHC.Types.Module
CoreDump.Tensor.SetSubtensorElems.$trModule3
CoreDump.Tensor.SetSubtensorElems.$trModule1
-- RHS size: {terms: 127, types: 293, coercions: 3, joins: 0/0}
setSubtensorElems_
:: Tensor '[2, 3, 4] Float
-> [Float] -> Maybe (Tensor '[2, 3, 4] Float)
setSubtensorElems_
= \ (t :: Tensor '[2, 3, 4] Float) (xs :: [Float]) ->
case t `cast` <Co:1> of
{ TensorInstances.Tensor'2'3'4'Float dt dt1 dt2 dt3 dt4 dt5 dt6 dt7
dt8 dt9 dt10 dt11 dt12 dt13 dt14 dt15 dt16 dt17 dt18 dt19
dt20 dt21 dt22 dt23 ->
case xs of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv2 ipv3 ->
case ipv3 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv1 ipv5 ->
case ipv5 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv6 ipv7 ->
case ipv7 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv8 ipv9 ->
case ipv9 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv10 ipv11 ->
case ipv11 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv12 ipv13 ->
case ipv13 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv14 ipv15 ->
case ipv15 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv16 ipv17 ->
case ipv17 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv18 ipv19 ->
case ipv19 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv20 ipv21 ->
case ipv21 of {
[] -> GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv22 ipv23 ->
case ipv23 of {
[] ->
GHC.Base.Nothing @ (Tensor '[2, 3, 4] Float);
: ipv24 ipv25 ->
GHC.Base.Just
@ (Tensor '[2, 3, 4] Float)
(case ipv2 of { GHC.Types.F# dt30 ->
case ipv1 of { GHC.Types.F# dt32 ->
case ipv6 of { GHC.Types.F# dt34 ->
case ipv8 of { GHC.Types.F# dt36 ->
case ipv10 of { GHC.Types.F# dt38 ->
case ipv12 of { GHC.Types.F# dt40 ->
case ipv14 of { GHC.Types.F# dt42 ->
case ipv16 of { GHC.Types.F# dt44 ->
case ipv18 of { GHC.Types.F# dt46 ->
case ipv20 of { GHC.Types.F# dt48 ->
case ipv22 of { GHC.Types.F# dt50 ->
case ipv24 of { GHC.Types.F# dt52 ->
(TensorInstances.Tensor'2'3'4'Float
dt30
dt32
dt34
dt36
dt38
dt40
dt42
dt44
dt46
dt48
dt50
dt52
dt12
dt13
dt14
dt15
dt16
dt17
dt18
dt19
dt20
dt21
dt22
dt23)
`cast` <Co:2>
}
}
}
}
}
}
}
}
}
}
}
})
}
}
}
}
}
}
}
}
}
}
}
}
}