more partial function removal

Left a few Prelude.head's in where it was checked not null and too hard to
remove, etc.

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