[commit: ghc] wip/nfs-locking: Fix replaceSeparators in Util.hs. (34696c1)

[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/34696c113fedaa2081b179dd4591d6eec8a510e4/ghc

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

commit 34696c113fedaa2081b179dd4591d6eec8a510e4
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Dec 31 04:00:18 2014 +0000

    Fix replaceSeparators in Util.hs.


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

34696c113fedaa2081b179dd4591d6eec8a510e4
 src/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Util.hs b/src/Util.hs
index 68ed2e5..d7e98bd 100644
--- a/src/Util.hs
+++ b/src/Util.hs
@@ -13,7 +13,7 @@ replaceIf p to = map (\from -> if p from then to else from)
 replaceEq :: Eq a => a -> a -> [a] -> [a]
 replaceEq from = replaceIf (== from)
 
-replaceSeparators :: String -> String
+replaceSeparators :: Char -> String -> String
 replaceSeparators = replaceIf isPathSeparator
 
 -- Prepare a given 'packaga-data.mk' file for parsing by readConfigFile: