diff options
| -rw-r--r-- | Annex/Link.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 71608ba2a..72c84c0c8 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -52,7 +52,8 @@ getAnnexLinkTarget file = readfilestart f = do h <- openFile f ReadMode fileEncoding h - take 8192 <$> hGetContents h + s <- take 8192 <$> hGetContents h + length s `seq` (hClose h >> return s) {- Creates a link on disk. - |