fix build on windows

diff --git a/Utility/LockFile/Windows.hs b/Utility/LockFile/Windows.hs
index a8a0748434affa5038db71ecfca1f19775a11517..781f8cfd319bbf661abf1dbd7687377d0cae14fd 100644 (file)
--- a/Utility/LockFile/Windows.hs
+++ b/Utility/LockFile/Windows.hs
@@ -27,7 +27,7 @@ type LockHandle = HANDLE
 {- Tries to lock a file with a shared lock, which allows other processes to
  - also lock it shared. Fails if the file is exclusively locked. -}
 lockShared :: LockFile -> IO (Maybe LockHandle)
-lockShared = openLock fILE_SHARE_READ . fromRawFilePath
+lockShared = openLock fILE_SHARE_READ
 
 {- Tries to take an exclusive lock on a file. Fails if another process has
  - a shared or exclusive lock.
@@ -36,7 +36,7 @@ lockShared = openLock fILE_SHARE_READ . fromRawFilePath
  - read or write by any other process. So for advisory locking of a file's
  - content, a separate LockFile should be used. -}
 lockExclusive :: LockFile -> IO (Maybe LockHandle)
-lockExclusive = openLock fILE_SHARE_NONE . fromRawFilePath
+lockExclusive = openLock fILE_SHARE_NONE
 
 {- Windows considers just opening a file enough to lock it. This will
  - create the LockFile if it does not already exist.