diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-04-30 13:53:38 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-05-14 14:40:21 -0400 |
| commit | c367cc156f493fb0625e1c907022f7981a6e476d (patch) | |
| tree | 6529597540337ac29eeffab612eaedba25062fa4 | |
| parent | fd5b4b08743b4c305baa2d27fc740197d8f5e9c0 (diff) | |
genGLSLs: Added error call on pattern fail.
| -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) |