RTree Bundle instance is too strict

[leonschoorl]

Clash.Prelude> t = pure False :: RTree 1 Bool
Clash.Prelude> sampleN @System 1 $ fromList [t]
[<False,False>]

Clash.Prelude> sampleN @System 1 $ bundle $ unbundle $ fromList [t]
*** Exception: X: finite list

[leonschoorl]

For Vec this works fine:

Clash.Prelude> v = pure True :: Vec 1 Bool
Clash.Prelude> sampleN @System 1 $ fromList [v]
[<True>]
Clash.Prelude> sampleN @System 1 $ bundle $ unbundle $ fromList [v]
[<True>]