diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-05-30 04:45:16 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-05-30 04:45:16 -0400 |
| commit | f45207ef28ef78bdb387a28bc948b69d46346d7b (patch) | |
| tree | 067a9d0516dc4284368bce74b0401c272d976997 | |
| parent | 211c8f1575719ffd0c44c3b878ac7d04c386a6f6 (diff) | |
Fix TypeTaggable typo.
| -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 |