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)" |