X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnMonad.lhs;h=189649b593862a967c3b8ce857711a164a0a068e;hb=90c0b29e6d8d847e5357bd0a9df98e2846046db7;hp=de6268a743d63db828ba3cb08df7d2f84bc49e65;hpb=e7b901ded4857432d181386ac1ec51acb6ad2be7;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnMonad.lhs b/ghc/compiler/rename/RnMonad.lhs
index de6268a..189649b 100644
--- a/ghc/compiler/rename/RnMonad.lhs
+++ b/ghc/compiler/rename/RnMonad.lhs
@@ -571,6 +571,7 @@ thenRn   :: RnM s d a -> (a -> RnM s d b) -> RnM s d b
 thenRn_  :: RnM s d a -> RnM s d b -> RnM s d b
 andRn    :: (a -> a -> a) -> RnM s d a -> RnM s d a -> RnM s d a
 mapRn    :: (a -> RnM s d b) -> [a] -> RnM s d [b]
+mapRn_   :: (a -> RnM s d b) -> [a] -> RnM s d ()
 mapMaybeRn :: (a -> RnM s d (Maybe b)) -> [a] -> RnM s d [b]
 sequenceRn :: [RnM s d a] -> RnM s d [a]
 foldlRn :: (b  -> a -> RnM s d b) -> b -> [a] -> RnM s d b
@@ -597,6 +598,11 @@ mapRn f (x:xs)
     mapRn f xs 	`thenRn` \ rs ->
     returnRn (r:rs)
 
+mapRn_ f []     = returnRn ()
+mapRn_ f (x:xs) = 
+    f x		`thenRn_`
+    mapRn_ f xs
+
 foldlRn k z [] = returnRn z
 foldlRn k z (x:xs) = k z x	`thenRn` \ z' ->
 		     foldlRn k z' xs