diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Add.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index d41a0baea..7100006c6 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -109,11 +109,10 @@ ingest (Just source) = do backend <- chooseBackend $ keyFilename source k <- genKey source backend cache <- liftIO $ genInodeCache $ contentLocation source - case inodeCache source of - Nothing -> go k cache - Just c - | (Just c == cache) -> go k cache - | otherwise -> failure + case (cache, inodeCache source) of + (_, Nothing) -> go k cache + (Just newc, Just c) | compareStrong c newc -> go k cache + _ -> failure where go k cache = ifM isDirect ( godirect k cache , goindirect k cache ) |