diff options
-rw-r--r-- | src/LambdaCube/Compiler/CoreToIR.hs | 1 |
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 | |||
707 | (vertIns, verts) = case vert of | 707 | (vertIns, verts) = case vert of |
708 | Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "3" <$> xs, ys) | 708 | Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "3" <$> xs, ys) |
709 | Nothing -> ([toGLSLType "4" tvert], [mkTVar 0 tvert]) | 709 | Nothing -> ([toGLSLType "4" tvert], [mkTVar 0 tvert]) |
710 | Just wut -> error $ show wut | ||
710 | 711 | ||
711 | (fragOuts, frags) = case frag of | 712 | (fragOuts, frags) = case frag of |
712 | Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "31" . tyOf <$> ys, ys) | 713 | Just (etaReds -> Just (xs, ETuple ys)) -> (toGLSLType "31" . tyOf <$> ys, ys) |