From a2f401ca9839b6041b7d94f77de4530f168b12ad Mon Sep 17 00:00:00 2001 From: Fabian Kirchner Date: Wed, 6 Mar 2024 13:47:17 +0100 Subject: review(feature/review): approve lgtm, possible splitting some non-business-logic stuff into separate commits would be nice commit 9a49ec0dcd6f75736949350844f85d80fe48a662 --- app/Git.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'app/Git.hs') diff --git a/app/Git.hs b/app/Git.hs index 7859503..fd4fa53 100644 --- a/app/Git.hs +++ b/app/Git.hs @@ -96,6 +96,7 @@ readTextFileOfText = readTextFileOf LT.readFile LT.decodeUtf8 readTextFileOfBS :: CommitHash -> FilePath -> IO LB.ByteString readTextFileOfBS = readTextFileOf LB.readFile (\x -> x) +-- REVIEW Suggestion: we could use `id` instead of `\x -> x` readTextFileOf :: (FilePath -> IO a) -> (LB.ByteString -> a) -> CommitHash -> FilePath -> IO a readTextFileOf readFile _ WorkingTree filePath = -- cgit v1.2.3