diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-10-02 23:31:06 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-10-02 23:32:04 +0200 |
| commit | eb3533997e33602007a1a1a760a72bfcb4fba3ee (patch) | |
| tree | 4e2ea5c95c4565ef9eb6b5fde440d76b8b8cad0c | |
| parent | eb191ab6c85f4b668a6e9151dcecaf1f1e7ec7c2 (diff) | |
| download | haskell-eb3533997e33602007a1a1a760a72bfcb4fba3ee.tar.gz | |
Really fix dropWhileEndLE commit
which I fixed before, but failed to pass -a to "git commit --amend"
| -rw-r--r-- | libraries/base/GHC/Windows.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/base/GHC/Windows.hs b/libraries/base/GHC/Windows.hs index 83f83df949..6b2301992c 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 |