More strictifiiiying

src/Geometry/Data.hs

@@ -8,6 +8,7 @@ module Geometry.Data
     , toV2
     , toV3
     , toV4
+    , fromV3
     , uncurryV
     , fstV2
     , sndV2
@@ -24,6 +25,8 @@ toV2 (a,b)      = V2 a b
 toV3 (a,b,c)    = V3 a b c
 toV4 (a,b,c,d)  = V4 a b c d
 
+fromV3 (V3 a b c) = (a,b,c)
+
 uncurryV :: (a -> a -> b) -> V2 a -> b
 uncurryV f (V2 x y) = f x y