getVSL :: AlgNode -> NodeMap VSL.TVSL -> VSL.TVSL
getVSL n vlNodes = case IM.lookup n vlNodes of
    Just op -> op
    Nothing -> error $ "getVSL: node " ++ (show n) ++ " not in VSL nodes map " ++ (pp vlNodes)
getVSL :: AlgNode -> NodeMap VSL.TVSL -> VSL.TVSL
getVSL n vlNodes = case IM.lookup n vlNodes of
    Just op -> op
    Nothing -> error $ "getVSL: node " ++ (show n) ++ " not in VSL nodes map " ++ (pp vlNodes)
getVSL n vlNodes = case IM.lookup n vlNodes of
    Just op -> op
    Nothing -> error $ "getVSL: node " ++ (show n) ++ " not in VSL nodes map " ++ (pp vlNodes)