Added a comment: typo in Utility/LockFile/Windows.hs
This commit is contained in:
parent
164129b53d
commit
2930afded3
1 changed files with 26 additions and 0 deletions
|
@ -0,0 +1,26 @@
|
|||
[[!comment format=mdwn
|
||||
username="jkniiv"
|
||||
avatar="http://cdn.libravatar.org/avatar/05fd8b33af7183342153e8013aa3713d"
|
||||
subject="typo in Utility/LockFile/Windows.hs"
|
||||
date="2022-08-03T20:46:14Z"
|
||||
content="""
|
||||
It seems there was a tiny typo in commit [[!commit 472f5c142b063053828358a3031a2ca09a373127]], hence
|
||||
the following simple correction is needed for the build to complete:
|
||||
|
||||
[[!format diff \"\"\"
|
||||
diff --git a/Utility/LockFile/Windows.hs b/Utility/LockFile/Windows.hs
|
||||
index 9ec34c9a7..6985f408c 100644
|
||||
--- a/Utility/LockFile/Windows.hs
|
||||
+++ b/Utility/LockFile/Windows.hs
|
||||
@@ -61,7 +61,7 @@ lockExclusive = openLock fILE_SHARE_NONE
|
||||
openLock :: ShareMode -> LockFile -> IO (Maybe LockHandle)
|
||||
openLock sharemode f = do
|
||||
f' <- convertToNativeNamespace f
|
||||
-#if MIN_VERSION_win32(2,13,3)
|
||||
+#if MIN_VERSION_Win32(2,13,3)
|
||||
r <- tryNonAsync $ createFile_NoRetry f' gENERIC_READ sharemode
|
||||
security_attributes oPEN_ALWAYS fILE_ATTRIBUTE_NORMAL
|
||||
(maybePtr Nothing)
|
||||
\"\"\"]]
|
||||
|
||||
"""]]
|
Loading…
Reference in a new issue