diff options
author | Joey Hess <joey@kitenet.net> | 2014-10-09 15:35:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-10-09 15:46:05 -0400 |
commit | f3d197128322981d58677ba165f7d33158e07940 (patch) | |
tree | d73f043118c4b50313fc8475222df6245eac2beb /Command/Add.hs | |
parent | cfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff) |
hlint
Diffstat (limited to 'Command/Add.hs')
-rw-r--r-- | Command/Add.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index 1bc20d819..286324c42 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -177,14 +177,14 @@ ingest (Just source) = withTSDelta $ \delta -> do (undo (keyFilename source) key) maybe noop (genMetaData key (keyFilename source)) ms liftIO $ nukeFile $ keyFilename source - return $ (Just key, mcache) + return (Just key, mcache) goindirect _ _ _ = failure "failed to generate a key" godirect (Just (key, _)) (Just cache) ms = do addInodeCache key cache maybe noop (genMetaData key (keyFilename source)) ms finishIngestDirect key source - return $ (Just key, Just cache) + return (Just key, Just cache) godirect _ _ _ = failure "failed to generate a key" failure msg = do |