diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2015-04-30 15:32:06 +0200 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2015-05-18 14:50:52 +0200 |
| commit | 6c9ebf718fa388df8772cd023352eed575dc3668 (patch) | |
| tree | e8a36a77fa543f6fa2045c63b486806483c14a3a /Backend/GL/Input.hs | |
| parent | 91f82aca82dc282d5630c1bddd8dc773c679cc76 (diff) | |
fix
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 6d4f40f..9d217ad 100644 --- a/Backend/GL/Input.hs +++ b/Backend/GL/Input.hs | |||
| @@ -30,7 +30,7 @@ import qualified IR as IR | |||
| 30 | schemaFromPipeline :: IR.Pipeline -> PipelineSchema | 30 | schemaFromPipeline :: IR.Pipeline -> PipelineSchema |
| 31 | schemaFromPipeline a = PipelineSchema (T.fromList sl) (foldl T.unionL T.empty ul) | 31 | schemaFromPipeline a = PipelineSchema (T.fromList sl) (foldl T.unionL T.empty ul) |
| 32 | where | 32 | where |
| 33 | (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- V.toList $ IR.slots a] | 33 | (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- IR.slots a] |
| 34 | cvt a = case toStreamType a of | 34 | cvt a = case toStreamType a of |
| 35 | Just v -> v | 35 | Just v -> v |
| 36 | Nothing -> error "internal error (schemaFromPipeline)" | 36 | Nothing -> error "internal error (schemaFromPipeline)" |