allow lazy reading of map contents

Don't explicitly close; hGetContents will close when read is done.

1 files changed, 1 insertions, 1 deletions

diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs
index 889c27231..9862b5dfe 100644
--- a/Annex/Content/Direct.hs
+++ b/Annex/Content/Direct.hs
@@ -44,7 +44,7 @@ associatedFilesRelative key = do
 	liftIO $ catchDefaultIO [] $ do
 		h <- openFile mapping ReadMode
 		fileEncoding h
- 		hClose h `after` (lines <$> hGetContents h)
+		lines <$> hGetContents h
 
 {- Changes the associated files information for a key, applying a
  - transformation to the list. Returns new associatedFiles value. -}