summaryrefslogtreecommitdiff
path: root/MaskableStream.hs
diff options
context:
space:
mode:
Diffstat (limited to 'MaskableStream.hs')
-rw-r--r--MaskableStream.hs2
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
293data AttributeKey c = AttributeKey (TypeTag c) Buffer CPtrdiff 293data AttributeKey c = AttributeKey (TypeTag c) Buffer CPtrdiff
294 294
295attributeKey :: TypeTagable c => GPUData -> String -> Maybe (AttributeKey c) 295attributeKey :: TypeTaggable c => GPUData -> String -> Maybe (AttributeKey c)
296attributeKey dta name = do 296attributeKey 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