From 23b42e612a6a7864428674b3c9d63ed86fc07435 Mon Sep 17 00:00:00 2001 From: Péter Diviánszky Date: Mon, 22 Feb 2016 15:15:23 +0100 Subject: rename: fetch_ --> fetch; fetchArrays_ --> fetchArrays --- src/LambdaCube/Compiler/CoreToIR.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/LambdaCube') diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs index c58e559e..06b08038 100644 --- a/src/LambdaCube/Compiler/CoreToIR.hs +++ b/src/LambdaCube/Compiler/CoreToIR.hs @@ -121,7 +121,7 @@ getCommands backend e = case e of (smpBindings, txtCmds) <- mconcat <$> traverse (uncurry getRenderTextureCommands) (Map.toList $ fst <$> pUniforms) (renderCommand,input) <- case input_ of - A2 "fetch_" (EString slotName) attrs -> do + A2 "fetch" (EString slotName) attrs -> do i <- IR.RenderSlot <$> addL' slotLens slotName (flip mergeSlot) IR.Slot { IR.slotName = slotName , IR.slotUniforms = IR.programUniforms prg @@ -137,7 +137,7 @@ getCommands backend e = case e of , IR.slotStreams = IR.slotStreams a <> IR.slotStreams b , IR.slotPrograms = IR.slotPrograms a <> IR.slotPrograms b } - A1 "fetchArrays_" (unzip . compAttributeValue -> (tys, values)) -> do + A1 "fetchArrays" (unzip . compAttributeValue -> (tys, values)) -> do i <- IR.RenderStream <$> addL streamLens IR.StreamData { IR.streamData = Map.fromList $ zip names values , IR.streamType = Map.fromList input -- cgit v1.2.3