diff --git a/transformations/ArrayUsageCheck.hs b/transformations/ArrayUsageCheck.hs
index be8bae6..7a8e1ef 100644
--- a/transformations/ArrayUsageCheck.hs
+++ b/transformations/ArrayUsageCheck.hs
@@ -46,7 +46,6 @@ usageCheckPass t = do g' <- buildFlowGraph labelFunctions t
                       return t
 
 
--- TODO we should probably calculate this from the CFG
 checkArrayUsage :: forall m. (Die m, CSM m) => FlowGraph m (Maybe Decl, Vars) -> m ()
 checkArrayUsage graph = sequence_ $ checkPar checkArrayUsage' graph
   where