diff options
Diffstat (limited to 'lc')
-rw-r--r-- | lc/Builtins.lc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lc/Builtins.lc b/lc/Builtins.lc index 80a818eb..271b636e 100644 --- a/lc/Builtins.lc +++ b/lc/Builtins.lc | |||
@@ -397,7 +397,7 @@ type family InterpolatedType a where | |||
397 | InterpolatedType (Interpolated a, Interpolated b) = (a, b) | 397 | InterpolatedType (Interpolated a, Interpolated b) = (a, b) |
398 | InterpolatedType (Interpolated a, Interpolated b, Interpolated c) = (a, b, c) | 398 | InterpolatedType (Interpolated a, Interpolated b, Interpolated c) = (a, b, c) |
399 | 399 | ||
400 | rasterize | 400 | rasterizePrimitive |
401 | :: ( b ~ InterpolatedType interpolation | 401 | :: ( b ~ InterpolatedType interpolation |
402 | , a ~ JoinTupleType (Vec 4 Float) b ) | 402 | , a ~ JoinTupleType (Vec 4 Float) b ) |
403 | => interpolation -- tuple of Smooth & Flat | 403 | => interpolation -- tuple of Smooth & Flat |
@@ -405,7 +405,7 @@ rasterize | |||
405 | -> Primitive a x | 405 | -> Primitive a x |
406 | -> FragmentStream 1 b | 406 | -> FragmentStream 1 b |
407 | 407 | ||
408 | rasterizePrimitives ctx is s = concat (map (rasterize is ctx) s) | 408 | rasterizePrimitives ctx is s = concat (map (rasterizePrimitive is ctx) s) |
409 | 409 | ||
410 | data Image :: Nat -> Type -> Type | 410 | data Image :: Nat -> Type -> Type |
411 | 411 | ||