From 7dd4c572fcfff44d179ec6dcd541f727babb51e6 Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Mon, 21 Dec 2015 13:32:56 +0100
Subject: more info in errors

---
 Backend/GL/Backend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Backend/GL/Backend.hs')

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
-- 
cgit v1.2.3