diff options
Diffstat (limited to 'src/LambdaCube/Compiler/CoreToIR.hs')
-rw-r--r-- | src/LambdaCube/Compiler/CoreToIR.hs | 4 |
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(..)) | |||
26 | import qualified LambdaCube.IR as IR | 26 | import qualified LambdaCube.IR as IR |
27 | import qualified LambdaCube.Linear as IR | 27 | import qualified LambdaCube.Linear as IR |
28 | 28 | ||
29 | import LambdaCube.Compiler.Pretty hiding (parens) | 29 | import LambdaCube.Compiler.Pretty |
30 | import LambdaCube.Compiler.Infer hiding (Con, Lam, Pi, TType, Var, ELit) | 30 | import LambdaCube.Compiler.Infer hiding (Con, Lam, Pi, TType, Var, ELit) |
31 | import qualified LambdaCube.Compiler.Infer as I | 31 | import qualified LambdaCube.Compiler.Infer as I |
32 | import LambdaCube.Compiler.Parser (up, Up (..)) | 32 | import LambdaCube.Compiler.Parser (up, Up (..)) |
@@ -597,8 +597,6 @@ genGLSLs backend | |||
597 | eTuple (ETuple l) = l | 597 | eTuple (ETuple l) = l |
598 | eTuple x = [x] | 598 | eTuple x = [x] |
599 | 599 | ||
600 | parens a = "(" <+> a <+> ")" | ||
601 | |||
602 | data Uniform | 600 | data Uniform |
603 | = UUniform | 601 | = UUniform |
604 | | UTexture2DSlot | 602 | | UTexture2DSlot |