@@ -473,8 +473,8 @@ irSC vs (Case n [ConCase (UN delay) i [_, _, n'] sc])
473473irSC vs (Case n [alt]) = do
474474 replacement <- case alt of
475475 ConCase cn a ns sc -> do
476− detag <- fgetState (opt_detaggable . ist_optimisation n)
477− used <- map fst <$> fgetState (cg_usedpos . ist_callgraph n)
476+ detag <- fgetState (opt_detaggable . ist_optimisation cn)
477+ used <- map fst <$> fgetState (cg_usedpos . ist_callgraph cn)
478478 if detag && length used == 1
479479 then return . Just $ substSC (ns !! head used) n sc
480480 else return Nothing