From 52ea8167b66b970e8db7676a875887030e86e044 Mon Sep 17 00:00:00 2001 From: Joris Dral Date: Wed, 26 Jul 2023 16:39:31 +0200 Subject: [PATCH] Update strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs Co-authored-by: Marcin Szamotulski --- strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs b/strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs index 268a5762..00147dfe 100644 --- a/strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs +++ b/strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs @@ -34,7 +34,7 @@ import Control.Monad.Class.MonadSTM hiding (traceTVar, traceTVarIO) type LazyTVar m = Lazy.TVar m newtype StrictTVar m a = StrictTVar { - tvar :: LazyTVar m a + tvar :: LazyTVar m a } labelTVar :: MonadLabelledSTM m => StrictTVar m a -> String -> STM m ()