$OpenBSD$

SPDX-License-Identifier: MIT

auto-update does not export the Reaper constructor. Use its public
accessor functions instead of record patterns.

Index: Network/Wai/Handler/Warp/FileInfoCache.hs
--- Network/Wai/Handler/Warp/FileInfoCache.hs.orig
+++ Network/Wai/Handler/Warp/FileInfoCache.hs
@@ -61,8 +61,8 @@
 ----------------------------------------------------------------
 
 getAndRegisterInfo :: FileInfoCache -> FilePath -> IO FileInfo
-getAndRegisterInfo reaper@Reaper{..} path = do
-    cache <- reaperRead
+getAndRegisterInfo reaper path = do
+    cache <- reaperRead reaper
     case M.lookup path cache of
         Just Negative     -> UnliftIO.throwIO (userError "FileInfoCache:getAndRegisterInfo")
         Just (Positive x) -> return x
@@ -70,14 +70,14 @@
                                `UnliftIO.onException` negative reaper path
 
 positive :: FileInfoCache -> FilePath -> IO FileInfo
-positive Reaper{..} path = do
+positive reaper path = do
     info <- getInfo path
-    reaperAdd (path, Positive info)
+    reaperAdd reaper (path, Positive info)
     return info
 
 negative :: FileInfoCache -> FilePath -> IO FileInfo
-negative Reaper{..} path = do
-    reaperAdd (path, Negative)
+negative reaper path = do
+    reaperAdd reaper (path, Negative)
     UnliftIO.throwIO (userError "FileInfoCache:negative")
 
 ----------------------------------------------------------------
