[commit: ghc] master: Add MonadIO instance to SimplM. (d90176c)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d90176cff3e68abef581cedaa9848841f300fd3d

>---------------------------------------------------------------

commit d90176cff3e68abef581cedaa9848841f300fd3d
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Thu Jul 12 17:49:41 2012 +0100

    Add MonadIO instance to SimplM.

>---------------------------------------------------------------

 compiler/simplCore/SimplMonad.lhs |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/compiler/simplCore/SimplMonad.lhs b/compiler/simplCore/SimplMonad.lhs
index 6883b6a..04b8c4e 100644
--- a/compiler/simplCore/SimplMonad.lhs
+++ b/compiler/simplCore/SimplMonad.lhs
@@ -35,6 +35,7 @@ import DynFlags
 import CoreMonad
 import Outputable
 import FastString
+import MonadUtils
 \end{code}
 
 %************************************************************************
@@ -153,6 +154,11 @@ instance MonadUnique SimplM where
 instance HasDynFlags SimplM where
     getDynFlags = SM (\st_env us sc -> return (st_flags st_env, us, sc))
 
+instance MonadIO SimplM where
+    liftIO m = SM $ \_ us sc -> do
+      x <- m
+      return (x, us, sc)
+
 getSimplRules :: SimplM RuleBase
 getSimplRules = SM (\st_env us sc -> return (st_rules st_env, us, sc))