dph-lifted-vseg: also store pre-demoted segd in nested arrays
[packages/dph.git] / dph-lifted-vseg / Data / Array / Parallel / PArray / PRepr / Base.hs
index 5c4eb41..adabcf8 100644 (file)
@@ -85,8 +85,8 @@ toNestedArrPRepr
         => PData (PArray a)
         -> PData (PArray (PRepr a))
 
-toNestedArrPRepr (PNested vsegd pdatas flat)
-        = PNested vsegd (toArrPReprs pdatas) (toArrPRepr flat)
+toNestedArrPRepr (PNested vsegd pdatas segd flat)
+        = PNested vsegd (toArrPReprs pdatas) segd (toArrPRepr flat)
 
 
 -- PA Wrappers ----------------------------------------------------------------