[commit: packages/Cabal] ghc-head: Make failReadE use the error message supplied (7c70d84)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Cabal

On branch  : ghc-head
Link       : http://git.haskell.org/?p=packages/Cabal.git;a=commit;h=7c70d8441233731a688d3f25320eed992856227a

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

commit 7c70d8441233731a688d3f25320eed992856227a
Author: Ben Doyle <benjamin.peter.doyle at gmail.com>
Date:   Thu May 16 09:32:53 2013 -0400

    Make failReadE use the error message supplied


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

7c70d8441233731a688d3f25320eed992856227a
 Cabal/Distribution/ReadE.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Cabal/Distribution/ReadE.hs b/Cabal/Distribution/ReadE.hs
index 9bdbba3..07b2568 100644
--- a/Cabal/Distribution/ReadE.hs
+++ b/Cabal/Distribution/ReadE.hs
@@ -63,7 +63,7 @@ succeedReadE :: (String -> a) -> ReadE a
 succeedReadE f = ReadE (Right . f)
 
 failReadE :: ErrorMsg -> ReadE a
-failReadE = ReadE . const Left
+failReadE = ReadE . const . Left
 
 parseReadE :: ReadE a -> ReadP r a
 parseReadE (ReadE p) = do