diff options
Diffstat (limited to 'Backend/Hash.hs')
-rw-r--r-- | Backend/Hash.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Backend/Hash.hs b/Backend/Hash.hs index a5abc8447..a0a16b74d 100644 --- a/Backend/Hash.hs +++ b/Backend/Hash.hs @@ -176,9 +176,8 @@ hashFile hash file filesize = go hash usehasher hashsize@(HashSize sz) = case shaHasher hashsize filesize of Left sha -> use sha - Right (external, internal) -> do - v <- liftIO $ externalSHA external sz file - case v of + Right (external, internal) -> + liftIO (externalSHA external sz file) >>= \case Right r -> return r Left e -> do warning e |