Use Fold for rendering

2021-08-02 02:14:09 +02:00
parent 54c912224b
commit 12e7af0755
4 changed files with 21 additions and 7 deletions
@@ -32,6 +32,7 @@ fromV3 :: V3 a -> (a,a,a)
 fromV3 (V3 a b c) = (a,b,c)

 uncurryV :: (a -> a -> b) -> V2 a -> b
+{-# INLINE uncurryV #-}
 uncurryV f (V2 x y) = f x y

 fstV2 :: V2 a -> a