diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2019-10-15 09:27:58 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-16 16:00:29 -0400 |
| commit | deb96399444ee69f7b7a2c9af1e4242e6c114916 (patch) | |
| tree | 14d43a225e795f402d7dff4a93c0e7f216f268b5 | |
| parent | 11d4fc50e13f62b360e1a45472d9bd734aad47cf (diff) | |
| download | haskell-deb96399444ee69f7b7a2c9af1e4242e6c114916.tar.gz | |
Make Coverage.TM a newtype
| -rw-r--r-- | compiler/deSugar/Coverage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs index b7bed75f3d..6138c26ec2 100644 --- a/compiler/deSugar/Coverage.hs +++ b/compiler/deSugar/Coverage.hs @@ -1071,7 +1071,7 @@ noFVs = emptyOccEnv -- to filter additions to the latter. This gives us complete control -- over what free variables we track. -data TM a = TM { unTM :: TickTransEnv -> TickTransState -> (a,FreeVars,TickTransState) } +newtype TM a = TM { unTM :: TickTransEnv -> TickTransState -> (a,FreeVars,TickTransState) } deriving (Functor) -- a combination of a state monad (TickTransState) and a writer -- monad (FreeVars). |