From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 30 Jun 2021 20:42:08 +0000 (-0400)
Subject: factor out pure code
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~2^2^2~69^2~155
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=ada61676ffae8989e43377936b44e0dc0d5a4f12;p=git-annex.git

factor out pure code
---

diff --git a/Logs/FsckResults.hs b/Logs/FsckResults.hs
index e33caa9545..1ade47d733 100644
--- a/Logs/FsckResults.hs
+++ b/Logs/FsckResults.hs
@@ -22,14 +22,20 @@ import qualified Data.Set as S
 writeFsckResults :: UUID -> FsckResults -> Annex ()
 writeFsckResults u fsckresults = do
 	logfile <- fromRepo $ gitAnnexFsckResultsLog u
-	case fsckresults of
-		FsckFailed -> store S.empty False logfile
-		FsckFoundMissing s t
-			| S.null s -> liftIO $
-				removeWhenExistsWith R.removeLink logfile
-			| otherwise -> store s t logfile
+	case serializeFsckResults fsckresults of
+		Just s -> store s logfile
+		Nothing -> liftIO $
+			removeWhenExistsWith R.removeLink logfile
+  where
+	store s logfile = writeLogFile logfile s
+
+serializeFsckResults :: FsckResults -> Maybe String
+serializeFsckResults fsckresults = case fsckresults of
+	FsckFailed -> Just (serialize S.empty False)
+	FsckFoundMissing s t
+		| S.null s -> Nothing
+		| otherwise -> Just (serialize s t)
   where
-	store s t logfile = writeLogFile logfile $ serialize s t
 	serialize s t =
 		let ls = map fromRef (S.toList s)
 		in if t
@@ -40,7 +46,10 @@ readFsckResults :: UUID -> Annex FsckResults
 readFsckResults u = do
 	logfile <- fromRepo $ gitAnnexFsckResultsLog u
 	liftIO $ catchDefaultIO (FsckFoundMissing S.empty False) $
-		deserialize . lines <$> readFile (fromRawFilePath logfile)
+		deserializeFsckResults <$> readFile (fromRawFilePath logfile)
+
+deserializeFsckResults :: String -> FsckResults
+deserializeFsckResults = deserialize . lines
   where
 	deserialize ("truncated":ls) = deserialize' ls True
 	deserialize ls = deserialize' ls False