[commit: ghc] wip/nfs-locking: Revert changes in Way.hs from #144. (697cba53)

[git at git.haskell.org]

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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/697cba53396690ff295c15b09e03520d2fc07cd5/ghc

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

commit 697cba53396690ff295c15b09e03520d2fc07cd5
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Jan 10 23:34:10 2016 +0000

    Revert changes in Way.hs from #144.


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

697cba53396690ff295c15b09e03520d2fc07cd5
 src/Way.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Way.hs b/src/Way.hs
index 974314c..3b1f6c0 100644
--- a/src/Way.hs
+++ b/src/Way.hs
@@ -72,7 +72,7 @@ instance Read Way where
         uniqueReads token = case reads token of
             [(unit, "")] -> Just unit
             _            -> Nothing
-        units  = map uniqueReads . splitOn "_" $ s
+        units  = map uniqueReads . words . replaceEq '_' ' ' $ s
         result = if Nothing `elem` units
                  then []
                  else [(wayFromUnits . map fromJust $ units, "")]