diff options
Diffstat (limited to 'Command/Add.hs')
-rw-r--r-- | Command/Add.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index f6b43034c..7fff5e778 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -95,7 +95,7 @@ ingest (Just source) = do ( do mstat <- liftIO $ catchMaybeIO $ getSymbolicLinkStatus $ keyFilename source k <- genKey source backend - godirect k (toCache =<< mstat) + godirect k (toInodeCache =<< mstat) , go =<< genKey source backend ) where @@ -107,9 +107,9 @@ ingest (Just source) = do go Nothing = failure godirect (Just (key, _)) (Just cache) = - ifM (compareCache (keyFilename source) $ Just cache) + ifM (liftIO $ compareInodeCache (keyFilename source) $ Just cache) ( do - writeCache key cache + writeInodeCache key cache void $ addAssociatedFile key $ keyFilename source unlessM crippledFileSystem $ liftIO $ allowWrite $ keyFilename source |