From 09e26c37de7e7227d856ffe15c9554af36b50c58 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 14 Mar 2024 07:07:28 +0100 Subject: review: request-changes feature/review --- app/Git.hs | 6 ------ 1 file changed, 6 deletions(-) (limited to 'app/Git.hs') diff --git a/app/Git.hs b/app/Git.hs index 2e8fa82..e195d1b 100644 --- a/app/Git.hs +++ b/app/Git.hs @@ -97,12 +97,6 @@ readTextFileOfText = readTextFileOf LT.readFile LT.decodeUtf8 readTextFileOfBS :: CommitHash -> FilePath -> IO LB.ByteString 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 = catch -- cgit v1.2.3