diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2015-12-21 13:32:56 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2015-12-21 13:32:56 +0100 |
commit | 7dd4c572fcfff44d179ec6dcd541f727babb51e6 (patch) | |
tree | 6e7ca5556c292de36418fc5a2e4e0beade462405 /Backend/GL/Backend.hs | |
parent | 5cf60478c3b58ea8f4a80967689a3cbbd261ea6d (diff) |
more info in errors
Diffstat (limited to 'Backend/GL/Backend.hs')
-rw-r--r-- | Backend/GL/Backend.hs | 2 |
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 | |||
233 | lcStreams = fmap ty (toTrie $ programStreams p) | 233 | lcStreams = fmap ty (toTrie $ programStreams p) |
234 | check a m = and $ map go $ T.toList m | 234 | check a m = and $ map go $ T.toList m |
235 | where go (k,b) = case T.lookup k a of | 235 | where go (k,b) = case T.lookup k a of |
236 | Nothing -> True | 236 | Nothing -> False |
237 | Just x -> x == b | 237 | Just x -> x == b |
238 | unless (check lcUniforms uniformsType) $ do | 238 | unless (check lcUniforms uniformsType) $ do |
239 | putStrLn $ "expected: " ++ show lcUniforms | 239 | putStrLn $ "expected: " ++ show lcUniforms |