diff options
Diffstat (limited to 'Backend/GL/Input.hs')
-rw-r--r-- | Backend/GL/Input.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/GL/Input.hs b/Backend/GL/Input.hs index 2a3500e..2b7c3d3 100644 --- a/Backend/GL/Input.hs +++ b/Backend/GL/Input.hs | |||
@@ -31,7 +31,7 @@ import qualified IR as IR | |||
31 | schemaFromPipeline :: IR.Pipeline -> PipelineSchema | 31 | schemaFromPipeline :: IR.Pipeline -> PipelineSchema |
32 | schemaFromPipeline a = PipelineSchema (T.fromList sl) (foldl T.unionL T.empty ul) | 32 | schemaFromPipeline a = PipelineSchema (T.fromList sl) (foldl T.unionL T.empty ul) |
33 | where | 33 | where |
34 | (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- IR.slots a] | 34 | (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- V.toList $ IR.slots a] |
35 | cvt a = case toStreamType a of | 35 | cvt a = case toStreamType a of |
36 | Just v -> v | 36 | Just v -> v |
37 | Nothing -> error "internal error (schemaFromPipeline)" | 37 | Nothing -> error "internal error (schemaFromPipeline)" |