From 7f0066cafd2a91959ef618ef8342524ca30a328f Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 13 Mar 2024 06:16:50 +0100 Subject: review: request-changes feature/review --- app/Git.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'app/Git.hs') diff --git a/app/Git.hs b/app/Git.hs index fd4fa53..eae3a85 100644 --- a/app/Git.hs +++ b/app/Git.hs @@ -95,8 +95,12 @@ readTextFileOfText :: CommitHash -> FilePath -> IO LT.Text readTextFileOfText = readTextFileOf LT.readFile LT.decodeUtf8 readTextFileOfBS :: CommitHash -> FilePath -> IO LB.ByteString -readTextFileOfBS = readTextFileOf LB.readFile (\x -> x) +readTextFileOfBS = readTextFileOf LB.readFile id -- REVIEW Suggestion: we could use `id` instead of `\x -> x` +-- +-- REVIEW OK! +-- +-- RESOLVED readTextFileOf :: (FilePath -> IO a) -> (LB.ByteString -> a) -> CommitHash -> FilePath -> IO a readTextFileOf readFile _ WorkingTree filePath = -- cgit v1.2.3