[commit: ghc] master: Really fix dropWhileEndLE commit (eb35339)

git at git.haskell.org git at git.haskell.org
Thu Oct 2 21:32:16 UTC 2014


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/eb3533997e33602007a1a1a760a72bfcb4fba3ee/ghc

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

commit eb3533997e33602007a1a1a760a72bfcb4fba3ee
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Oct 2 23:31:06 2014 +0200

    Really fix dropWhileEndLE commit
    
    which I fixed before, but failed to pass -a to "git commit --amend"


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

eb3533997e33602007a1a1a760a72bfcb4fba3ee
 libraries/base/GHC/Windows.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libraries/base/GHC/Windows.hs b/libraries/base/GHC/Windows.hs
index 83f83df..6b23019 100644
--- a/libraries/base/GHC/Windows.hs
+++ b/libraries/base/GHC/Windows.hs
@@ -69,7 +69,6 @@ import GHC.Base
 import GHC.IO
 import GHC.Num
 import System.IO.Error
-import Util
 
 import qualified Numeric
 
@@ -121,7 +120,7 @@ errCodeToIOError fn_name err_code = do
     -- XXX we should really do this directly.
     let errno = c_maperrno_func err_code
 
-    let msg' = dropWhileEndLE isSpace msg -- drop trailing \n
+    let msg' = dropWhileEnd isSpace msg -- drop trailing \n
         ioerror = errnoToIOError fn_name errno Nothing Nothing
                     `ioeSetErrorString` msg'
     return ioerror



More information about the ghc-commits mailing list