diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-10-02 14:51:34 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-10-02 14:51:34 -0500 |
| commit | d6d5c127b86dc186b25add2843cb83fc12e72a85 (patch) | |
| tree | 7d6e4bc542f775fa6ad413186df9fad5941db1d3 /libraries/base/GHC/Windows.hs | |
| parent | 35672072b4091d6f0031417bc160c568f22d0469 (diff) | |
| download | haskell-d6d5c127b86dc186b25add2843cb83fc12e72a85.tar.gz | |
Revert "Use dropWhileEndLE p instead of reverse . dropWhile p . reverse"
This reverts commit 2a8856884de7d476e26b4ffa829ccb3a14d6f63e.
Diffstat (limited to 'libraries/base/GHC/Windows.hs')
| -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..0a57fc3368 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' = reverse $ dropWhile isSpace $ reverse msg -- drop trailing \n ioerror = errnoToIOError fn_name errno Nothing Nothing `ioeSetErrorString` msg' return ioerror |