(D8) use unsafeFreeze

This commit is contained in:
ctsk
2023-09-23 07:55:47 +02:00
parent 21b54cfcda
commit 23ec60e44d

View File

@@ -106,11 +106,11 @@ process bs =
)
)
lf <- VS.freeze l
rf <- VS.freeze r
uf <- VS.freeze u
df <- VS.freeze d
vf <- VS.freeze v
lf <- VS.unsafeFreeze l
rf <- VS.unsafeFreeze r
uf <- VS.unsafeFreeze u
df <- VS.unsafeFreeze d
vf <- VS.unsafeFreeze v
return (Intermediate{h = h, w = w, u = uf, d = df, l = lf, r = rf, v = vf})