diff options
| author |  Fabian Kirchner <kirchner@posteo.de> | 2024-03-06 13:47:17 +0100 |
|---|---|---|
| committer |  Alexander Foremny <aforemny@posteo.de> | 2024-03-14 07:07:45 +0100 |
| commit | a2f401ca9839b6041b7d94f77de4530f168b12ad (patch) | |
| tree | a9068a88246373aee3c8d54c66369beadf074908 /app/Git.hs | |
| parent | f92c593a3d2c4bdb023fdd834b6e8c874d063cc8 (diff) | |
review(feature/review): approve
lgtm, possible splitting some non-business-logic stuff into separate
commits would be nice
commit 9a49ec0dcd6f75736949350844f85d80fe48a662
Diffstat (limited to 'app/Git.hs')
| -rw-r--r-- | app/Git.hs | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 = |