diff options
Diffstat (limited to 'Backend/Hash.hs')
| -rw-r--r-- | Backend/Hash.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/Hash.hs b/Backend/Hash.hs index 62d0a0fca..7c47a4abc 100644 --- a/Backend/Hash.hs +++ b/Backend/Hash.hs @@ -144,7 +144,7 @@ trivialMigrate oldkey newbackend hashFile :: Hash -> FilePath -> Integer -> Annex String hashFile hash file filesize = liftIO $ go hash where - go (SHAHash hashsize) = case shaHasher hashsize filesize of + go (SHAHash hashsize) = case shaHasher hashsize filesize of Left sha -> sha <$> L.readFile file Right command -> either error return |