diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2023-01-17 15:36:37 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2023-01-17 15:39:49 +0300 |
| commit | dcd13a081f1f318d4d87f29e1475ecd90cd9a149 (patch) | |
| tree | a9bdd9fb6e87f33923b943b2edade5aeca1fdc2f | |
| parent | fc02f3bbb5f47f880465e22999ba9794f658d8f6 (diff) | |
| download | haskell-wip/int-index/writert.tar.gz | |
Use WriterT.CPS in CmmToLlvm and Driverwip/int-index/writert
The CPS variant of WriterT runs in constant space.
| -rw-r--r-- | compiler/GHC/CmmToLlvm/CodeGen.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToLlvm/CodeGen.hs b/compiler/GHC/CmmToLlvm/CodeGen.hs index dbe623f85e..80e27d5f8a 100644 --- a/compiler/GHC/CmmToLlvm/CodeGen.hs +++ b/compiler/GHC/CmmToLlvm/CodeGen.hs @@ -38,7 +38,7 @@ import qualified GHC.Utils.Panic as Panic import GHC.Utils.Misc import Control.Monad.Trans.Class -import Control.Monad.Trans.Writer +import Control.Monad.Trans.Writer.CPS import Control.Monad import qualified Data.Semigroup as Semigroup diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index 57d89a15b1..b98d037860 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -266,7 +266,7 @@ import Data.IORef import Control.Arrow ((&&&)) import Control.Monad import Control.Monad.Trans.Class -import Control.Monad.Trans.Writer +import Control.Monad.Trans.Writer.CPS import Control.Monad.Trans.Reader import Control.Monad.Trans.Except import Control.Monad.Trans.State as State |