diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,11 @@
 Changes
 =======
 
+Version 0.11
+------------
+
+New field `resultShortDescription` of `Result`
+
 Version 0.10.1.2
 ----------------
 
diff --git a/Test/Tasty/Core.hs b/Test/Tasty/Core.hs
--- a/Test/Tasty/Core.hs
+++ b/Test/Tasty/Core.hs
@@ -53,6 +53,9 @@
     --
     -- For a failed test, 'resultDescription' should typically provide more
     -- information about the failure.
+  , resultShortDescription :: String
+    -- ^ The short description printed in the test run summary, usually @OK@ or
+    -- @FAIL@.
   , resultTime :: Time
     -- ^ How long it took to run the test, in seconds.
   }
@@ -69,6 +72,7 @@
 exceptionResult e = Result
   { resultOutcome = Failure $ TestThrewException e
   , resultDescription = "Exception: " ++ show e
+  , resultShortDescription = "FAIL"
   , resultTime = 0
   }
 
diff --git a/Test/Tasty/Ingredients/ConsoleReporter.hs b/Test/Tasty/Ingredients/ConsoleReporter.hs
--- a/Test/Tasty/Ingredients/ConsoleReporter.hs
+++ b/Test/Tasty/Ingredients/ConsoleReporter.hs
@@ -83,9 +83,7 @@
                 then ok
                 else fail
             time = resultTime result
-          if resultSuccessful result
-            then printFn "OK"
-            else printFn "FAIL"
+          printFn (resultShortDescription result)
           -- print time only if it's significant
           when (time >= 0.01) $
             printFn (printf " (%.2fs)" time)
diff --git a/Test/Tasty/Providers.hs b/Test/Tasty/Providers.hs
--- a/Test/Tasty/Providers.hs
+++ b/Test/Tasty/Providers.hs
@@ -24,6 +24,7 @@
 testPassed desc = Result
   { resultOutcome = Success
   , resultDescription = desc
+  , resultShortDescription = "OK"
   , resultTime = 0
   }
 
@@ -34,5 +35,6 @@
 testFailed desc = Result
   { resultOutcome = Failure TestFailed
   , resultDescription = desc
+  , resultShortDescription = "FAIL"
   , resultTime = 0
   }
diff --git a/Test/Tasty/Run.hs b/Test/Tasty/Run.hs
--- a/Test/Tasty/Run.hs
+++ b/Test/Tasty/Run.hs
@@ -140,6 +140,7 @@
             { resultOutcome = Failure $ TestTimedOut t
             , resultDescription =
                 "Timed out after " ++ tstr
+            , resultShortDescription = "TIMEOUT"
             , resultTime = fromIntegral t
             }
       fromMaybe timeoutResult <$> timeout t a
diff --git a/tasty.cabal b/tasty.cabal
--- a/tasty.cabal
+++ b/tasty.cabal
@@ -2,7 +2,7 @@
 --  see http://haskell.org/cabal/users-guide/
 
 name:                tasty
-version:             0.10.1.2
+version:             0.11
 synopsis:            Modern and extensible testing framework
 description:         Tasty is a modern testing framework for Haskell.
                      It lets you combine your unit tests, golden