From 787772e5288274c045ae2b63752436a5076aea60 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Sun, 3 Jan 2021 14:48:23 +0000
Subject: Correct the scaledMat function

---
 src/Vivant.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Vivant.hs b/src/Vivant.hs
index 5335b30..e552b42 100644
--- a/src/Vivant.hs
+++ b/src/Vivant.hs
@@ -304,8 +304,8 @@ initResources = do
 toRadians :: Float -> Float
 toRadians = (*) (pi / 180)
 
-scaledMat :: V4 (V4 Float) -> V4 (V4 Float)
-scaledMat n = (n * identity) & _w . _w .~ 1
+scaledMat :: Float -> M44 Float
+scaledMat n = (n *!! identity) & _w . _w .~ 1
 
 castV3 :: V3 a -> GL.Vector3 a
 castV3 (V3 a b c) = GL.Vector3 a b c
-- 
cgit