diff --git a/src/Days/D08.hs b/src/Days/D08.hs
index aa6032d..5fb5695 100644
--- a/src/Days/D08.hs
+++ b/src/Days/D08.hs
@@ -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})