Strict Interval - little preformance improvements

Slowyn · Aug 30, 2024 · 7c62a86 · 7c62a86
1 parent b17fe45
commit 7c62a86
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/app/Interval.hs b/app/Interval.hs
@@ -14,7 +14,8 @@ where
 
 import Data.Ord (clamp)
 
-data Interval = Interval Double Double deriving (Show, Eq)
+data Interval = Interval !Double !Double
+  deriving (Show, Eq)
 
 instance Ord Interval where
   (<=) a b = intervalSize a <= intervalSize b