==================== Tidy Core ==================== 2017-09-19 23:56:43.9675494 UTC Result size of Tidy Core = {terms: 48, types: 73, coercions: 3, joins: 0/0} -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} CoreDump.Tensor.TensorElemSet.$trModule4 :: GHC.Prim.Addr# CoreDump.Tensor.TensorElemSet.$trModule4 = "main"# -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} CoreDump.Tensor.TensorElemSet.$trModule3 :: GHC.Types.TrName CoreDump.Tensor.TensorElemSet.$trModule3 = GHC.Types.TrNameS CoreDump.Tensor.TensorElemSet.$trModule4 -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} CoreDump.Tensor.TensorElemSet.$trModule2 :: GHC.Prim.Addr# CoreDump.Tensor.TensorElemSet.$trModule2 = "CoreDump.Tensor.TensorElemSet"# -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} CoreDump.Tensor.TensorElemSet.$trModule1 :: GHC.Types.TrName CoreDump.Tensor.TensorElemSet.$trModule1 = GHC.Types.TrNameS CoreDump.Tensor.TensorElemSet.$trModule2 -- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0} CoreDump.Tensor.TensorElemSet.$trModule :: GHC.Types.Module CoreDump.Tensor.TensorElemSet.$trModule = GHC.Types.Module CoreDump.Tensor.TensorElemSet.$trModule3 CoreDump.Tensor.TensorElemSet.$trModule1 -- RHS size: {terms: 33, types: 41, coercions: 3, joins: 0/0} tensorElemSet_ :: Float -> Tensor '[2, 3, 4] Float -> Tensor '[2, 3, 4] Float tensorElemSet_ = \ (e :: Float) (eta :: Tensor '[2, 3, 4] Float) -> case eta `cast` 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 e of { GHC.Types.F# dt30 -> (TensorInstances.Tensor'2'3'4'Float dt dt1 dt2 dt3 dt4 dt5 dt6 dt7 dt8 dt9 dt10 dt11 dt12 dt13 dt14 dt15 dt16 dt30 dt18 dt19 dt20 dt21 dt22 dt23) `cast` } }