From 611acb4524b245a3de47f50624dbaec9e22162ec Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <coot@coot.me>
Date: Mon, 27 Mar 2023 10:43:51 +0200
Subject: [PATCH] Turned ThunkInfo into a newtype

---
 src/NoThunks/Class.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/NoThunks/Class.hs b/src/NoThunks/Class.hs
index 34fa282..6d38d00 100644
--- a/src/NoThunks/Class.hs
+++ b/src/NoThunks/Class.hs
@@ -193,7 +193,7 @@ type Context = [String]
 -- to get source spans from closures. If we could take advantage of that, we
 -- could not only show the type of the unexpected thunk, but also where it got
 -- allocated.
-data ThunkInfo = ThunkInfo {
+newtype ThunkInfo = ThunkInfo {
       -- The @Context@ argument is intended to give a clue to add debugging.
       -- For example, suppose we have something of type @(Int, [Int])@. The
       -- various contexts we might get are