fixup! fixup! fixup! Replace "Array Word8" in the Event module with "…

…Path" in Windows
composewell · Oct 16, 2024 · 94f160c · 94f160c
1 parent 7eddea4
commit 94f160c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Streamly/Internal/FileSystem/Event/Windows.hs b/src/Streamly/Internal/FileSystem/Event/Windows.hs
@@ -354,8 +354,9 @@ peekFNI buf = do
     neof <- peekByteOff buf 0
     acti <- peekByteOff buf 4
     fnle <- peekByteOff buf 8
-    fnam <- Array.fromPtrN fnle (buf `plusPtr` 12)
-    return $ FILE_NOTIFY_INFORMATION neof acti (Path.fromChunk fnam)
+    fnam0 <- Array.fromPtrN fnle (buf `plusPtr` 12)
+    fnam <- Path.fromChunk fnam0
+    return $ FILE_NOTIFY_INFORMATION neof acti fnam
 
 readChangeEvents ::
     Ptr FILE_NOTIFY_INFORMATION -> Path -> DWORD -> IO [Event]