1 files changed, 1 insertions, 0 deletions

diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs
index 51548cf3..4a96c141 100644
--- a/src/LambdaCube/Compiler/CoreToIR.hs
+++ b/src/LambdaCube/Compiler/CoreToIR.hs
@@ -707,6 +707,7 @@ genGLSLs backend
     (vertIns, verts) = case vert of
         Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "3" <$> xs, ys)
         Nothing -> ([toGLSLType "4" tvert], [mkTVar 0 tvert])
+        Just wut -> error $ show wut
 
     (fragOuts, frags) = case frag of
         Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "31" . tyOf <$> ys, ys)