From c367cc156f493fb0625e1c907022f7981a6e476d Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Tue, 30 Apr 2019 13:53:38 -0400 Subject: genGLSLs: Added error call on pattern fail. --- src/LambdaCube/Compiler/CoreToIR.hs | 1 + 1 file changed, 1 insertion(+) 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) -- cgit v1.2.3