Andromeda/hs-glsl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix pair compiler warnings

Browse Source
This commit is contained in:
mtgmonkey
2025-12-03 20:16:51 +01:00
parent 038946ca49
commit 732a4efd33
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/GLSL.hs
View File

@@ -176,8 +176,6 @@ type CheckResult = Either CheckFailure CheckSuccess
type CheckSuccess = (Program, [Warn]) type CheckSuccess = (Program, [Warn])
type CheckFailure = (Error, [Warn]) type CheckFailure = (Error, [Warn])
type LineNumber = Int
data Error data Error
= ErrUnimplementedCheckProgram = ErrUnimplementedCheckProgram
| ErrVariableDeclaredMultipleTimes Variables | ErrVariableDeclaredMultipleTimes Variables
@@ -268,6 +266,6 @@ counts' (x:xs) cts =
[(a, ct + 1) | (a, ct) <- cts [(a, ct + 1) | (a, ct) <- cts
, a == x , a == x
] ++ ] ++
[t | t@(a, ct) <- cts [t | t@(a, _) <- cts
, a /= x , a /= x
] ]