diff --git a/Cabal/Distribution/Types/ModuleRenaming.hs b/Cabal/Distribution/Types/ModuleRenaming.hs
index c0be560f9da..25ab3481ccb 100644
--- a/Cabal/Distribution/Types/ModuleRenaming.hs
+++ b/Cabal/Distribution/Types/ModuleRenaming.hs
@@ -112,7 +112,7 @@ instance Parsec ModuleRenaming where
 
 
 instance Text ModuleRenaming where
-  parse = do fmap ModuleRenaming parseRns
+  parse = fmap ModuleRenaming parseRns
              <++ parseHidingRenaming
              <++ return DefaultRenaming
     where parseRns = do