diff --git a/src/TIM.hs b/src/TIM.hs
index 1441331..5e0ac15 100644
--- a/src/TIM.hs
+++ b/src/TIM.hs
@@ -54,7 +54,6 @@ instance Pretty Prim where
     prettyPrec (IntP n) = withPrec maxBound $ IStr $ show n ++ "#"
     prettyPrec IntAddP  = withPrec maxBound $ "+#"
 
--- TODO: lens
 data Stats = Stats
     { _stsReductions   :: Int
     , _stsAllocations  :: Int