1 files changed, 1 insertions, 1 deletions

diff --git a/Backend/GL/Backend.hs b/Backend/GL/Backend.hs
index 4780966..d3abfad 100644
--- a/Backend/GL/Backend.hs
+++ b/Backend/GL/Backend.hs
@@ -233,7 +233,7 @@ compileProgram uniTrie p = do
         lcStreams = fmap ty (toTrie $ programStreams p)
         check a m = and $ map go $ T.toList m
           where go (k,b) = case T.lookup k a of
-                  Nothing -> True
+                  Nothing -> False
                   Just x -> x == b
     unless (check lcUniforms uniformsType) $ do
       putStrLn $ "expected: " ++ show lcUniforms