From 5cf60478c3b58ea8f4a80967689a3cbbd261ea6d Mon Sep 17 00:00:00 2001 From: Csaba Hruska Date: Fri, 18 Dec 2015 21:06:20 +0100 Subject: adjust for generated IR --- Backend/GL/Input.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Backend/GL/Input.hs') 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 schemaFromPipeline :: IR.Pipeline -> PipelineSchema schemaFromPipeline a = PipelineSchema (T.fromList sl) (foldl T.unionL T.empty ul) where - (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- IR.slots a] + (sl,ul) = unzip [((pack n,SlotSchema p (fmap cvt (toTrie s))),toTrie u) | IR.Slot n u s p _ <- V.toList $ IR.slots a] cvt a = case toStreamType a of Just v -> v Nothing -> error "internal error (schemaFromPipeline)" -- cgit v1.2.3