diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-02-04 10:46:28 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-02-04 10:48:16 +0100 |
| commit | bbc0ec5733df434878b02f7556a1cc947718a8b1 (patch) | |
| tree | 5ee82972ba14942a0dad7302a817ec39f2ff373e /compiler/deSugar/DsMonad.hs | |
| parent | 28f951edfe50ea5182065144340061ec326781f5 (diff) | |
| download | haskell-bbc0ec5733df434878b02f7556a1cc947718a8b1.tar.gz | |
Fix a few loose ends from D1795
George updated the Diff but I didn't noticed until it was too late.
Diffstat (limited to 'compiler/deSugar/DsMonad.hs')
| -rw-r--r-- | compiler/deSugar/DsMonad.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/deSugar/DsMonad.hs b/compiler/deSugar/DsMonad.hs index 3d922f6728..0d19ff9d2c 100644 --- a/compiler/deSugar/DsMonad.hs +++ b/compiler/deSugar/DsMonad.hs @@ -362,9 +362,6 @@ addTmCsDs :: Bag SimpleEq -> DsM a -> DsM a addTmCsDs tm_cs = updLclEnv (\env -> env { dsl_tm_cs = unionBags tm_cs (dsl_tm_cs env) }) --- | Check that we have not done more iterations --- than we are supposed to and inrease the counter - -- | Increase the counter for elapsed pattern match check iterations. -- If the current counter is already over the limit, fail incrCheckPmIterDs :: DsM () |