diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2022-06-07 17:20:27 +0000 |
|---|---|---|
| committer | Josh Meredith <joshmeredith2008@gmail.com> | 2022-06-16 10:44:34 +0000 |
| commit | 8daea76fd41f2987efe4cd1b7162bd5bef91c135 (patch) | |
| tree | b04b16be1eab69f7143996030e68b19b24162afb /compiler/GHC/StgToJS/Monad.hs | |
| parent | 91746c5f04534ee7c7e4a3430e44d21d359da456 (diff) | |
| download | haskell-wip/js-binary.tar.gz | |
Replace GHCJS Objectable with GHC Binarywip/js-binary
Diffstat (limited to 'compiler/GHC/StgToJS/Monad.hs')
| -rw-r--r-- | compiler/GHC/StgToJS/Monad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/StgToJS/Monad.hs b/compiler/GHC/StgToJS/Monad.hs index 61202d44e0..01d6e96ecf 100644 --- a/compiler/GHC/StgToJS/Monad.hs +++ b/compiler/GHC/StgToJS/Monad.hs @@ -105,7 +105,7 @@ import GHC.Types.ForeignCall import GHC.Utils.Encoding (zEncodeString) import GHC.Utils.Outputable hiding ((<>)) import GHC.Utils.Misc -import qualified GHC.Utils.Monad.State.Strict as State +import qualified Control.Monad.Trans.State.Strict as State import GHC.Data.FastString import qualified Data.Map as M @@ -118,8 +118,8 @@ import Data.Array import Data.Monoid import Control.Monad -runG :: StgToJSConfig -> Module -> UniqFM Id CgStgExpr -> G a -> a -runG config m unfloat action = State.evalState action (initState config m unfloat) +runG :: StgToJSConfig -> Module -> UniqFM Id CgStgExpr -> G a -> IO a +runG config m unfloat action = State.evalStateT action (initState config m unfloat) initState :: StgToJSConfig -> Module -> UniqFM Id CgStgExpr -> GenState initState config m unfloat = GenState |