diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 23:25:39 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-12-24 23:25:39 +0100 |
| commit | 9a6e7b2b83f582157a7c004451a20d8280829499 (patch) | |
| tree | fbedaeee87ad95ca153227aa00bea913b567f48d /src/LambdaCube/GL/Backend.hs | |
| parent | c904806462e2331a210833af9a183d6f6f0a03a3 (diff) | |
more info in error message
Diffstat (limited to 'src/LambdaCube/GL/Backend.hs')
| -rw-r--r-- | src/LambdaCube/GL/Backend.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/LambdaCube/GL/Backend.hs b/src/LambdaCube/GL/Backend.hs index 4280876..619ea76 100644 --- a/src/LambdaCube/GL/Backend.hs +++ b/src/LambdaCube/GL/Backend.hs | |||
| @@ -627,7 +627,7 @@ setStorage' p@GLRenderer{..} input' = do | |||
| 627 | return (i,Nothing) | 627 | return (i,Nothing) |
| 628 | -- create input connection | 628 | -- create input connection |
| 629 | let sm = slotMap input | 629 | let sm = slotMap input |
| 630 | pToI = [i | n <- glSlotNames, let i = fromMaybe (error $ "missing object array: " ++ n) $ Map.lookup n sm] | 630 | pToI = [i | n <- glSlotNames, let i = fromMaybe (error $ "setStorage - missing object array: " ++ n) $ Map.lookup n sm] |
| 631 | iToP = V.update (V.replicate (Map.size sm) Nothing) (V.imap (\i v -> (v, Just i)) pToI) | 631 | iToP = V.update (V.replicate (Map.size sm) Nothing) (V.imap (\i v -> (v, Just i)) pToI) |
| 632 | writeIORef glInput $ Just $ InputConnection idx input pToI iToP | 632 | writeIORef glInput $ Just $ InputConnection idx input pToI iToP |
| 633 | 633 | ||