1 files changed, 1 insertions, 0 deletions
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 =