diff options
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 |