diff options
Diffstat (limited to 'MaskableStream.hs')
-rw-r--r-- | MaskableStream.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MaskableStream.hs b/MaskableStream.hs index 6c03769..12524ee 100644 --- a/MaskableStream.hs +++ b/MaskableStream.hs | |||
@@ -292,7 +292,7 @@ instance Typeable c => Data (AttributeKey c) where | |||
292 | 292 | ||
293 | data AttributeKey c = AttributeKey (TypeTag c) Buffer CPtrdiff | 293 | data AttributeKey c = AttributeKey (TypeTag c) Buffer CPtrdiff |
294 | 294 | ||
295 | attributeKey :: TypeTagable c => GPUData -> String -> Maybe (AttributeKey c) | 295 | attributeKey :: TypeTaggable c => GPUData -> String -> Maybe (AttributeKey c) |
296 | attributeKey dta name = do | 296 | attributeKey dta name = do |
297 | stream <- Map.lookup name (dStreams dta) | 297 | stream <- Map.lookup name (dStreams dta) |
298 | fix $ \mp -> let typ = typeTag (fromJust mp) in case stream of | 298 | fix $ \mp -> let typ = typeTag (fromJust mp) in case stream of |