fix windows build

This commit is contained in:
Joey Hess 2015-10-12 15:48:59 -04:00
parent 73b26a8b05
commit 1ff7610118
Failed to extract signature

View file

@ -256,8 +256,9 @@ lockContentUsing locker key a = do
maybe noop cleanuplockfile mlockfile
liftIO $ dropLock lck
#else
unlock mlockfile mlockhandle = do
liftIO $ maybe noop dropLock mlockhandle
unlock mlockfile lck = do
-- Can't delete a locked file on Windows
liftIO $ dropLock lck
maybe noop cleanuplockfile mlockfile
#endif