From f45207ef28ef78bdb387a28bc948b69d46346d7b Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Thu, 30 May 2019 04:45:16 -0400 Subject: Fix TypeTaggable typo. --- MaskableStream.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 data AttributeKey c = AttributeKey (TypeTag c) Buffer CPtrdiff -attributeKey :: TypeTagable c => GPUData -> String -> Maybe (AttributeKey c) +attributeKey :: TypeTaggable c => GPUData -> String -> Maybe (AttributeKey c) attributeKey dta name = do stream <- Map.lookup name (dStreams dta) fix $ \mp -> let typ = typeTag (fromJust mp) in case stream of -- cgit v1.2.3