summaryrefslogtreecommitdiff
path: root/src/LambdaCube/Compiler/CoreToIR.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/LambdaCube/Compiler/CoreToIR.hs')
-rw-r--r--src/LambdaCube/Compiler/CoreToIR.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs
index da1618f5..3f8343ca 100644
--- a/src/LambdaCube/Compiler/CoreToIR.hs
+++ b/src/LambdaCube/Compiler/CoreToIR.hs
@@ -26,7 +26,7 @@ import LambdaCube.IR(Backend(..))
26import qualified LambdaCube.IR as IR 26import qualified LambdaCube.IR as IR
27import qualified LambdaCube.Linear as IR 27import qualified LambdaCube.Linear as IR
28 28
29import LambdaCube.Compiler.Pretty hiding (parens) 29import LambdaCube.Compiler.Pretty
30import LambdaCube.Compiler.Infer hiding (Con, Lam, Pi, TType, Var, ELit) 30import LambdaCube.Compiler.Infer hiding (Con, Lam, Pi, TType, Var, ELit)
31import qualified LambdaCube.Compiler.Infer as I 31import qualified LambdaCube.Compiler.Infer as I
32import LambdaCube.Compiler.Parser (up, Up (..)) 32import LambdaCube.Compiler.Parser (up, Up (..))
@@ -597,8 +597,6 @@ genGLSLs backend
597eTuple (ETuple l) = l 597eTuple (ETuple l) = l
598eTuple x = [x] 598eTuple x = [x]
599 599
600parens a = "(" <+> a <+> ")"
601
602data Uniform 600data Uniform
603 = UUniform 601 = UUniform
604 | UTexture2DSlot 602 | UTexture2DSlot