fix windows build

This commit is contained in:
Joey Hess 2015-05-22 13:44:24 -04:00
parent 1b01322de0
commit 696ed9b3f9

View file

@ -30,7 +30,7 @@ import Prelude
lockShared :: LockFile -> IO (Maybe LockHandle)
lockShared file = tryMakeLockHandle
(P.tryTakeLock P.lockPool file LockShared)
(F.lockShared mode file)
(F.lockShared file)
{- Tries to take an exclusive lock on a file. Fails if another process has
- a shared or exclusive lock.