Make cells strict

eschnett · Apr 16, 2017 · 066033a · 066033a
1 parent d973705
commit 066033a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/library/WaveToy1.hs b/library/WaveToy1.hs
@@ -17,7 +17,7 @@ default (Int)
 
 
 
-data Cell a = Cell { u, rho, vx :: a }
+data Cell a = Cell { u, rho, vx :: !a }
   deriving (Eq, Ord, Read, Show, Foldable, Functor)
 
 instance Applicative Cell where