diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2015-12-18 21:06:20 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2015-12-18 21:06:20 +0100 |
commit | 5cf60478c3b58ea8f4a80967689a3cbbd261ea6d (patch) | |
tree | d27788d92d6902b9ea8cbd80d0a21c34c825e269 /Backend/GL/Input.hs | |
parent | 6c0c6a8c4f51d2b2a7ef5cb708bfe5632ba8afe8 (diff) |
adjust for generated IR
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)" |