diff --git a/shake/compare/Compare.hs b/shake/compare/Compare.hs
index e91e3d0befdaa95c7ff1521f007ea870f217524f..3af633809588a8b56f271b25037aa5818978e72b 100644
--- a/shake/compare/Compare.hs
+++ b/shake/compare/Compare.hs
@@ -264,6 +264,7 @@ main = do
     tabulate "compiler GC (cpu) time"      $ objectCompilerRtsStats <* "GC_cpu_seconds"
     tabulate "compiler GC (wall) time"      $ objectCompilerRtsStats <* "GC_wall_seconds"
     tabulate "executable size"       $ testName <* "executable size"
+    tabulate "code size (.text)"     $ objectCompilerSize
     -- run-time metrics
     tabulate "bytes allocated"       $ runRtsStats <* "bytes allocated"
     tabulate "mutator time"          $ runRtsStats <* ("mutator_cpu_seconds" <|> "mut_cpu_seconds")
@@ -296,6 +297,9 @@ testName = wildcard
 objectCompilerRtsStats :: LabelMatcher (TestName, ModuleName)
 objectCompilerRtsStats = (,) <$> testName <* "objects" <*> wildcard <* "rts stats"
 
+objectCompilerSize :: LabelMatcher (TestName,ModuleName)
+objectCompilerSize = (,) <$> testName <* "objects" <*> wildcard <* "size"
+
 runRtsStats :: LabelMatcher TestName
 runRtsStats = testName <* "run" <* "rts stats"