diff options
| -rw-r--r-- | Content.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Content.hs b/Content.hs index bf9456221..dd0ea5ca1 100644 --- a/Content.hs +++ b/Content.hs @@ -103,6 +103,8 @@ getViaTmp key action = do checkDiskSpace' (fromIntegral $ fileSize stat) key else checkDiskSpace key + when e $ liftIO $ allowWrite tmp + getViaTmpUnchecked key action {- Like getViaTmp, but does not check that there is enough disk space |