diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-02-22 13:10:54 +0100 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-22 13:10:54 +0100 |
| commit | 8f499baa1f80809b93835635d9405b24d3c5eeaa (patch) | |
| tree | 7ee4dc257e46488338ce3c0ca61d4157f8e3c852 /src/LambdaCube | |
| parent | 1afac98ca90505a41b23ec8dc8053d3bbcbf04dc (diff) | |
fix fragment shader code gen on webgl
Diffstat (limited to 'src/LambdaCube')
| -rw-r--r-- | src/LambdaCube/Compiler/CoreToIR.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs index a392b1ba..629ac861 100644 --- a/src/LambdaCube/Compiler/CoreToIR.hs +++ b/src/LambdaCube/Compiler/CoreToIR.hs | |||
| @@ -523,7 +523,7 @@ genGLSLs backend | |||
| 523 | 523 | ||
| 524 | fragOutNames = case length frags of | 524 | fragOutNames = case length frags of |
| 525 | 0 -> [] | 525 | 0 -> [] |
| 526 | 1 -> [caseWO (head vertOutNames) fragColorName] | 526 | 1 -> [fragColorName] |
| 527 | 527 | ||
| 528 | (vertIns, verts) = case vert of | 528 | (vertIns, verts) = case vert of |
| 529 | Just (etaReds -> Just (xs, ys)) -> (toGLSLType "3" <$> xs, eTuple ys) | 529 | Just (etaReds -> Just (xs, ys)) -> (toGLSLType "3" <$> xs, eTuple ys) |