Use strict tuples for SPics

2024-10-01 01:20:29 +01:00
parent a98ec80f59
commit 5a4f2711c8
17 changed files with 69 additions and 481 deletions
@@ -1,4 +1,7 @@
 module ShapePicture.Data where
+
+import Data.Strict.Tuple
 import Picture.Data
 import Shape.Data
-type SPic =  (Shape, Picture)
+
+type SPic = Pair Shape Picture