diff options
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/SHA.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs index 7935b6d26..eca312944 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -62,11 +62,10 @@ shaN :: SHASize -> FilePath -> Annex String shaN size file = do showAction "checksum" liftIO $ pOpen ReadFromPipe command (toCommand [File file]) $ \h -> do - line <- hGetLine h - let bits = split " " line - if null bits + sha <- fst . separate (== ' ') <$> hGetLine h + if null sha then error $ command ++ " parse error" - else return $ head bits + else return sha where command = fromJust $ shaCommand size |