(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 lf <- VS.unsafeFreeze l
rf <- VS.freeze r rf <- VS.unsafeFreeze r
uf <- VS.freeze u uf <- VS.unsafeFreeze u
df <- VS.freeze d df <- VS.unsafeFreeze d
vf <- VS.freeze v vf <- VS.unsafeFreeze v
return (Intermediate{h = h, w = w, u = uf, d = df, l = lf, r = rf, v = vf}) return (Intermediate{h = h, w = w, u = uf, d = df, l = lf, r = rf, v = vf})