From fe8fa28f3f6ce925519fc30a995954db58934faf Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Sat, 22 Jun 2024 17:31:35 +0100
Subject: [PATCH] Add unRelStDev :: RelStDev -> Double

---
 changelog.md            | 1 +
 src/Test/Tasty/Bench.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/changelog.md b/changelog.md
index 812bed5..e5a69de 100644
--- a/changelog.md
+++ b/changelog.md
@@ -12,6 +12,7 @@
 * Decomission `debug` build flag.
 * Decomission warning when `--timeout` is absent.
 * Add `instance Eq RelStDev` and `instance Ord RelStDev`.
+* Add `unRelStDev :: RelStDev -> Double`.
 
 # 0.3.5
 
diff --git a/src/Test/Tasty/Bench.hs b/src/Test/Tasty/Bench.hs
index 0c7e63a..b2d9868 100644
--- a/src/Test/Tasty/Bench.hs
+++ b/src/Test/Tasty/Bench.hs
@@ -788,7 +788,7 @@ type Progress = ()
 -- only once, use command-line option @--stdev@ @Infinity@.
 --
 -- @since 0.2
-newtype RelStDev = RelStDev Double
+newtype RelStDev = RelStDev { unRelStDev :: Double }
   deriving (Eq, Ord, Show, Read, Typeable)
 
 -- | Whether to measure CPU time or wall-clock time.