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
 
     fragOutNames = case length frags of
         0 -> []
-        1 -> [caseWO (head vertOutNames) fragColorName]
+        1 -> [fragColorName]
 
     (vertIns, verts) = case vert of
         Just (etaReds -> Just (xs, ys)) -> (toGLSLType "3" <$> xs, eTuple ys)