Update strict-stm/src/Control/Concurrent/Class/MonadSTM/Strict/TVar.hs

jorisdral · coot · web-flow · commit 52ea8167b66b · 2023-07-26T16:39:31.000+02:00
Co-authored-by: Marcin Szamotulski &lt;coot@coot.me&gt;
diff --git 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 ()

Original file line number	Diff line number	Diff line change
`@@ -34,7 +34,7 @@ import Control.Monad.Class.MonadSTM hiding (traceTVar, traceTVarIO)`
`34`	`34`	`type LazyTVar m = Lazy.TVar m`
`35`	`35`
`36`	`36`	`newtype StrictTVar m a = StrictTVar {`
`37`		`- tvar :: LazyTVar m a`
	`37`	`+ tvar :: LazyTVar m a`
`38`	`38`	`}`
`39`	`39`
`40`	`40`	`labelTVar :: MonadLabelledSTM m => StrictTVar m a -> String -> STM m ()`