X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FMonadUtils.hs;h=4ddd4eadfc5127cc8732efb27a1c68cad616a519;hb=8ffd91b6102f4ad3111cabdf6bdb1998f257887f;hp=3c4e3861e3cd8cd9bd4ef37dc9dad0cc416ebc06;hpb=f9fa73dd0f96280ddc73800ca8d247aa788561b5;p=ghc-hetmet.git

diff --git a/compiler/utils/MonadUtils.hs b/compiler/utils/MonadUtils.hs
index 3c4e386..4ddd4ea 100644
--- a/compiler/utils/MonadUtils.hs
+++ b/compiler/utils/MonadUtils.hs
@@ -137,4 +137,4 @@ foldlM = foldM
 -- | Monadic version of foldr
 foldrM        :: (Monad m) => (b -> a -> m a) -> a -> [b] -> m a
 foldrM _ z []     = return z
-foldrM k z (x:xs) = do { r <- foldrM k z xs; k x r }
\ No newline at end of file
+foldrM k z (x:xs) = do { r <- foldrM k z xs; k x r }