Further strictifying

src/Geometry/Data.hs

@@ -9,6 +9,8 @@ module Geometry.Data
     , toV3
     , toV4
     , uncurryV
+    , fstV2
+    , sndV2
     )
     where
 import Linear.V2
@@ -24,3 +26,8 @@ toV4 (a,b,c,d)  = V4 a b c d
 
 uncurryV :: (a -> a -> b) -> V2 a -> b
 uncurryV f (V2 x y) = f x y
+
+fstV2 :: V2 a -> a
+fstV2 (V2 x _) = x
+sndV2 :: V2 a -> a
+sndV2 (V2 _ x) = x