From c926de73b9b5335acb9623fd6be41691f8612d07 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 30 Jan 2025 14:52:41 -0400 Subject: [PATCH] avoid build warning An odd one, it complained about security_attributes being defined but not used, but it was used.. --- Utility/LockFile/Windows.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Utility/LockFile/Windows.hs b/Utility/LockFile/Windows.hs index 9f35ec1129..8e6c6d2905 100644 --- a/Utility/LockFile/Windows.hs +++ b/Utility/LockFile/Windows.hs @@ -70,13 +70,11 @@ openLock sharemode f = do Right h -> Just h #else h <- withTString (fromRawFilePath f') $ \c_f -> - c_CreateFile c_f gENERIC_READ sharemode security_attributes + c_CreateFile c_f gENERIC_READ sharemode (maybePtr Nothing) oPEN_ALWAYS fILE_ATTRIBUTE_NORMAL (maybePtr Nothing) return $ if h == iNVALID_HANDLE_VALUE then Nothing else Just h - where - security_attributes = maybePtr Nothing #endif dropLock :: LockHandle -> IO ()