From 7e44a19fae9bc9f90c38641cbc5cf8af9c540ecb Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 14 Sep 2017 18:12:23 -0400
Subject: Fixed leak in thread instrumentation.

---
 src/Control/Concurrent/Lifted/Instrument.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Control')

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 7ee78c8b..9a409569 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -25,7 +25,7 @@ data PerThread = PerThread
  }
  deriving (Eq,Ord,Show)
 
-data GlobalState = GlobalState
+newtype GlobalState = GlobalState
  { threads :: Map.Map ThreadId PerThread
  }
 
-- 
cgit v1.2.3